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Complete systems. Morrow 
Designs hard disk subsystems 
are delivered complete with hard 
disk, controller, cabinet, power 
supply, fan, cables and CP/M’ 
2.2 operating system. 

Widest range. Viorrow Designs 
offers the widest range of hard 
disk systems available from a sin- 
gle supplier. 544)’ 8)’ 14” Five to 
over 100 megabytes of formatted 
hard disk storage. $2,995 to 
$17,980. Cost effective systems 
that work. And keep working. 
$-100 and more. Morrow Designs 
hard disk systems are designed 
for use with the CP/M operating 
system. Available soft- 
ware packages allow our 
systems to run on any 
IEEE696/S-100 Standard 
system with no hard- 
ware modification. =: 
Plus, Cromemco*** North nN 
Star** Vector Graphics, 4 
Godbout, Dynabyte, 
Exidy**** IMSAI, Micro- 
mation, Processor Tech- 
nology and California 
Computer Systems. = 
Reliable systems. Morrow Designs is com- 
mitted to hard disk system reliability. Not 
simply with a 90-day warranty, but with a money 
back guarantee. If our system fails to perform to 
specification, send it back. We'll send back 

your money. 
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Leading edge technology 
in hard disk systems. 


Experience. As of April, 1981, 
there were over fifteen hun- 
dred Morrow Designs hard disk 
systems successfully installed. 
In fact, over 200 independent 
systems integrators now use 
our hard disks to solve their 
mass storage problems. 
Performance answers. Morrow 
Designs hard disk systems have 
been benchmarked against all 
other systems. None is faster 
under CP/M. Morrow Designs 
hard disks operate at 10 times 
the speed of a floppy disk 
drive. Transfer rates range from 
590,000 bytes to 900,000 bytes 
per second. That kind of perfor- 
mance can become addictive. 
Cost effective answers. Compare 
Morrow prices and performance 
to anything presently available 
for S-100 systems. You'll find 
Morrow’s price/megabyte/ 
performance ratio to be 
unmatched. Leadership in 
disk systems technology 
earned us leadership in 
price/performance. And 
that may have earned us 
a call from you. Circle the 
Reader Service Number 
for our full line data sheets. 
Can't wait? Call us at (415) 


524-2101. And yes, OEM quantity prices are 
available. LOOK TO MORROW FOR ANSWERS. 


“CP/M is a trademark of Digital Research, 
**Northstar is a trademark of North Star Computers, Inc 
***Cromemco is a trademark of Cromemco, Inc 
****Exidy is a trademark of Exidy Corporation. 


5221 Central Avenue, Richmond, CA 94804 


(415) 524-2101 


_ features: 


- Virtual Mémory Management -/4 Billion byte addressing 
- Motorola/68000 Pro¢essor *ILRU demand paging 
¢ 12 Mhz operation *|/Peripheral| processor 

-|UNIX multijuser operating system 


- 32 bit computations 


tures in systems available 


Only the worlds finest minicomputer offers these feq 
TODAY. Complete singl¢-user systems start under $10,000. And a 6 user 
2K Bytes RAM and 24M Bytes hard disc 


UNIX-based/16 MB virtual System with 
costs under $25,000! Want proof? Call of write now forbrochures and information 


eminars. Or send $75 for the complete technical manual 


4 ui 
- 4! 
A tree poster of this ag 1s available while supply lapts. ‘ \ 


UNIX Is a trademark of Bgl! Laboratories 
68K MiniFrame ts 2 trademark of MicroDaSys, Inc. 


PL/I-80": Not for beginners* 


For internal savings, product capabilities, code 
speed and upward compatibility — How PL/I-80 
meets these criteria is making software news. 


MC is a successful company selling business 
applications to first time users. 


MC switched from a popular but less efficient 
language. MC benefits from these PL/I-80 (ANSI 
Subset G) features. * Fast design with picture 
specifications for output. * Easy data retrieval 
with BT-80™ file manager. * Improved performance 
with LINK-80™ loading of disk resident overlays. 

¢ Small, fast programs with optimized object code 
and no interpreter. 


Specific examples of PL/I-80’s speed, memory 
conservation, error checking, and control in the 
business environment are cited. 


Consultants Co. 
Chose 


In a candid interview, Mr. Charles Russell, MC’s 
president, discusses his professional programming 
needs. 


2K Mr. Russell distinguishes, “PL/I-80 isn't a panacea. 
It’s a programmer's language, ideal for the 
experienced programmer. Just as PASCAL and 
BASIC are good for beginners.” 


Worldwide market exposure of your products 

and company through your listing in our CP/M® 
Compatible Software Catalog; news affecting your 
business in a free subscription to ISV FORUM; plus 
comprehensive seminars comprise our ISV Support 
Plan for those who write applications under CP/M. 


Yours free. See why 
MC switched. Then compare 


your language. PL/I-80° 


Limited quantity. Respond 
now and receive a bonus 
book, PL/I-80 Command 
Summary, a quick reference 
to 343 PL/I-80 commands 
and error messages. 


Oem sere 
I'd like to analyze PL/I-80 


COMMAND 
SUMMARY 


features. Send your Brochure 
& Bonus Book to: 


Name: 


Title: 


Company: 
Address: 


DIGITAL RESEARCH’ 


P.O. Box 579V, Pacific Grove, CA 93950 
Europe: Vector, Intl., Leuven, Belgium, 32(16)202496 


Far East: Microsoftware Assoc., Tokyo, Japan, 03-403-2120 
CP/M is a registered trademark of Digital Research, Inc. PL/I-80, BT-80 and 
LINK-80 are trademarks of Digital Research, Inc. 


© Copyright 1981. Digital Research, Inc. 
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S-100 Standard Nears Adoption 
The IEEE-696/S-100 Bus Interface 
Standard has been finalized by the 
working committee. The committee is 
now in the process of putting together 
the formal presentation to the IEEE 
Computer Standards committee, for 
adoption of the standard. When the 
standard is adopted, it will be published 
in Micro magazine, the offical IEEE 
microcomputer publication. It is antici- 
pated that the IEEE will again give us 
permission to reprint the standard after 
its appearance in Micro, as they did 
when we reprinted the original proposed 
standard two years ago. Regretfully, 
the IEEE has prohibited us from publish- 
ing the standard until then. In the 
meantime, if you have a copy of the 
original proposed standard (which 
appeared in the July 1979 issue of 
Computer and January 1980 issue of 
Microsystems) and just want a copy of 
the addendum (14 pages) just send $2 
($3 foreign) to Sol Libes, Box 1192, 
Mountainside, NJ 07092. 


Oasis News 

Phase One Systems, suppliers of the 
Oasis DOS, are now publishing a 
quarterly, sixteen page newsletter called 
“Software Monitor,” For a copy write: 
Phase One Systems, 7700 Edgewater 
Drive, Oakland, CA 94621; (415)562- 
8085. 

The Oasis Users Group has released 
seven volumes of software which 
include utilities and applications pro- 
grams. An Oasis User Meeting was held 
in November in Las Vegas. Membership 
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in Oasis-UG is $35/yr, and includes 
the first software library volume (addi- 
tional volumes are $35 each with credit 
given for software contributions) anda 
newsletter. Contact Oasis-UG, c/o Fred 
Bellomy, Box 2400, Santa Barbara, CA 
93120; (805)965-0265. 


Pascal/MT User Group Formed 

The Pascal/MT Users Group 
(MTPUG) was recently formed. A quar- 
terly newsletter will be distributed 
containing bug reports, fixes, programs 
and new items. Long Pascal/MT pro- 
grams will be available on disk, 8” SD, 
and 5-1/4” NorthStar and Zenith/Heath 
formats. Dues are $7/yr U.S., $8/yr 
Canada and Mexico, and $10/yr other 
for surface mail, $16 air mail. MTPUG, 
Box 192, Westmont, IL 60559. In 
Europe, write MTPUG; Schimmel- 
mannstr, 37A; D-2070 Ahrensburg, West 
Germany; dues are 25 DM. 


SIG/M & CPMUG News 

Last month the SIG/M User Group 
issued six more new disks, bringing 
their total up to 48 volumes. The 
CPMUG is issuing 20 new volumes. 
However, | have been informed that 
these volumes (55 through 74) contain 
the software from the first 20 volumes 
of the SIG/M-UG. The SIG/M-UG has 
given CPMUG permission to distribute 
their software. This will give the SIG/M- 
UG public domain software greater 
world-wide distribution and relieve the 
SIG/M-UG of some of its workload. 
However, CP/M users who deal with 
both organizations should take care 


not to order the same disks from both 
organizations. Hopefully, CPMUG will 
clearly label which disks are duplicates. 
For information on the SIG/M and 
CPMUG refer to “The Editor's Page” in 
this issue. 


Lifeboat Switches 

There is no doubt that Lifeboat Asso- 
ciates is the largest world-wide dis- 
tributor of CP/M and CP/M-based soft- 
ware. To a great degree, Lifeboat can 
boast that they made CP/M the “soft- 
ware bus” by implementing CP/M on 
about forty different 8-bit micro- 
computer systems. 

But when it comes to 16-bit micro- 
computers, Lifeboat has decided against 
CP/M-86. Rather, it has decided to 
support the Microsoft DOS being used 
on the new IBM personal computer. 
The rumor is that IBM selected the 
MS-DOS over CPM-86 because the 
financial terms were better. Apparently 
Lifeboat feels that with IBM support, 
this DOS will be much more popular 
than CP/M-86. Lifeboat will call their 
version of the DOS “SB-86,” and will 
make it available for a wide variety of 
systems. Lifeboat will also convert most 
of their current CP/M-based packages 
to run under SB-86. 


Rumors! Rumors! 
SuperSoft Associates, of Champaign 
IL is rumored about to release a Z-80 
ADA compiler. Rumors are that it will 
be a subset of ADA (actually the Depart- 
ment of Defense has still not finalized 
the complete ADA standard) and that 
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ANNOUNCING A REVOLUTION 
IN THE COST OF PROFESSIONAL SOFTWARE 


VISACCOUNT is a fully integrated business and accounting 
system designed for use in small businesses. VISACCOUNT is 
extremely comprehensive and professional, yet it is very easy 
to use. The system is controlled from a series of interconnected 
menus permitting user-friendly operation. Everything you need 
to set-up and operate the system is provided with the 
VISACCOUNT package. Experts have estimated the 
development costs for a fully integrated software system 
ranges between $7,200 and $22,000.T When you buy 
software the developer has to recapture this expense. 
Computer Services Corporation of America is selling its software 
with a view that volume sales can almost negate this 
development cost. 


OUR GUARANTEE — Buy both our software and that of our 
competitors (who will no doubt charge several times our price 
because they need to recapture their development cost). 
Compare the two systems and we know you'll return theirs 
(make sure they'll let you return their software). IF you decide 
not to keep our system, then return it within 45 days for a full 
refund. Once you've used our system we're confident you'll be 
delighted. 


éiero 

What You Receive GENERAL LEDGER ACCOUNTS PAYABLE 

© Nine 5%4'' double density disks (or six 8'' single ro | ee | 
density disks) 


€asy-to-use operator's manual (over 200 pages) 
Self-study guide on bookkeeping and accounting (over 
180 pages) 
Cassette based instruction program on set-up and 
operation 

Available for Apple*, TRS-80, and most others 


*The Apple version requires the Microsoft 280 softcard. 
CSCA has CBASIC2, CP/M and Microsfot Z80 softcard in stock. 


FIXED ASSETS 
ACCOUNTING 


Complete. Car oods Record 
Option of reciation Methods 
IRS Depreciation Report 


EXTAR: MAILING LIST PROGRAM Send $159 for the VISACCOUNT system 
Features «( V COMPUTER SERVICES CORPORATION of AMERICA 
\\{/4 


Menu Driven: The entire system 332 East 30th Street New York, be York 10016 
runs from a single master menu Order Toll Free 1-800-221-2486 ext. 1591 
which accesses numerous subsidi- Technical Number 1-212-685-0090 


ary menus, when needed, to per- 
form the full spectrum of business Name 
and accounting Functions. 


Self-Documenting: All the infor- 
mation needed to use the sytem Address 
is provided in an easy to self- 


study format. City/State/Zip 
(J Master Charge CM) Visa LI American Express 


Requirements: 48K CBASIC2 
2 DISK DAIVES CP/M No, _ Eres 


Your System 
©1981 Computer Services Corporation of America Disk Size 1 5%"' double density O 8" single density 


ULTIMATE SOFTWARE PLAN 


We'll match any advertised price on any 
item that we carry. And if you find a lower 
price on what you bought within 30 days of 
buying it, just show us the ad and we'll 
refund the difference. 


Combine our price protection with the 
availability of full professional support and 
our automatic update service and you have 
the Ultimate Software Plan. 

It's a convenient, uncomplicated, logical 


It's that simple. 


DISK WITH 
CP/M® MANUAL 
ARTIFICIAL INTELLIGENCE 
Medical(PAS-3)..... . .$849/$40 
Dental (PAS-3) $849/$40 
ASYST DESIGN 
Prof Time pccounsing. .$549/$40 
General Subroutine. . .$269/$40 
Application Utilities $439/$40 
COMPLETE BUS. SYSTEMS 
Creator...... . . $269/$25 
Reporter. ... ...$169/$20 
Both. . eee .. .$399/$45 
COMPUTER CONTROL 
Fabs (B-tree).... -$159/$20 
UltraSort II $159/$25 
COMPUTER PATHWAYS 
Pearl (level 1) .$ 99/$25 
Pearl (level 2). . ...$299/$40 
Pearl (level 3). . .$549/$50 
DIGITAL RESEARCH 
CP/M 
Northi Sia /$25 
TRS-80 Model I (F*1) 3159/835 
Micropolis. . $169/$25 
Cromemco. $189/$25 
PL/I-80....... .$459/$35 
BT-80 . .$179/$30 
Mac 
Sid... 
Z-Sid 
Tex 
DeSpool.. 
CB-80.... 


-..$ 98/$20 


$149/$15 


Formula. .... $539/$45 


GRAHAM-DORIAN 
General Ledger 
Acct Receivable. .. 
Acct Payable 
Job Costing 
Payroll ll... al 
Inventory ll... . 
Payroll 
Inventory... . 
Cash Register 
Apartment Mat. 
MICRO-AP 
S-Basic........ 
v Selector IV...........$295/$35 
v Selector V $495/$50 
MICKS DATA BASE SYSTEMS 
HDB 269/$35 
MDB: BS “$798/840 
DRS or QRS or RTL. . .$269/$10 
MDBS PKG . .$1295/$60 


MICROPRO® 
WordStar . 


. .$729/$40 
. .$729/$40 
.$729/$40 
$729/$40 
....$729/$40 
. .$729/$40 
$493/$40 

. .$493/$40 
$493/$40 
$493/$40 


.$269/$25 


.$319/$60 
Caponiastion Notes. penyrs 
Mail-Mer $109/$25 
WordStar/ Mail: eras, $419/$85 
DataStar.. $2 
WordMast 
SuperSort |. 
Spell Star.... 


MICROSOFT 
Basic-80. . ‘ 
Basic Compiler. . 


Edit- 80 
MuSimp/MuMath. . 
MuLisp-80. 
wv Multi Plan........ 
Manager Series 


way to get your software. 


(New items or new prices) 


MANUAL 
ONLY 


MICROTAX 
Individual 
Professional. . . 
Partnership. . 
Package. 


CP/M users: 
specify disk systems and formats. Most formats available. 


$250/na 
$1000/na 


ERR $750/na 


. -$1500/na 


ORGANIC SOFTWARE 


TextWriter III 
DateBook II 
Milestone 
OSBORNE 
General Ledger. . 


Acct Rec/Acct Pay 


Payroltw/Gost. . 
All3 


All 3 + CBASIC-2. . 
Enhanced Osborne. . 


With “C” Basic 
PEACHTREE® 


General Ledger.... 
Acct Receivable. . . 


Acct Payable 
Payroll. 
Inventory 
Surveyor. . 
Property Mat 


CPA Client Write-up. . 
vw Order entry (Cobol). 


Mig Address. . 
P5 Version 


$111/$25 
$269/$25 
$269/$30 


$ 59/$20 
$ 59/$20 
$ 59/$20 
-$129/$60 
. .$199/$75 
.$269/$60 
$349/$75 


$399/$40 
$399/$40 
$399/$40 
$399/$40 
. .$399/$40 
. $399/$40 
$799/$40 
$799/$40 
$900 


$349 
Add $129 


SOFTWARE WORKS 
Adapt (COO8 to CP/M ; 69/$na 


Ratfor 

SOHO GROUP 
MatchMaker 
WorkSheet 


$ 86/$na 


$ 97/$20 
$177/$20 


STRUCTURED SYSTEMS 
GL or AR or AP or Pay Call 
Inventory Control... i 


Analyst... 
Letteright. 
QSort 

NAD.. 

Order Entry 
SUPERSOFT 
Diagnostic | 
Diagnostic Il. . 
Disk Doctor 


Forth (8080 or Z80). . 


Fortran 


Fortran w/Ratfor. . 
Ci COMBEGE carseat 
SAGES isisciiesacevsvepesess 


lg 


$ 49/$20 
$ 84/$20 
$ 84/$20 
..$149/$30 
$219/$30 
$289/$35 
$174/$20 
$189/$30 
less 10% 


i or AR or AP or ies 79/$25 
All 4 


Compiled each 
Inventory 
UNICORN 
Mince... 
Scribble 

Both 


“PASCAL” 
wv Pascal/MT+ Pkg 
~ Compiler 
~ Sp Prog. . 
Pascal/Z.. 
Pascal/UCSD 4.0 
 Pascal/M... 


“DATA BASE” 
FMS 


Condorll..... 


Access 80 Level 1... 
Access 80 Level 2 


269/$99 
$ *90/825 
. $ 99/$25 


$149/$25 
$149/$25 
$249/$50 


$429/$30 
$315 
. $175 
-$349/$30 


. 2. .$429/$50 
. .$355/$20 


.. .$649/$45 

. . .$595/$50 
-$899/$50 
$249 
gare 


Access 80 Level 3 


Optimum 


$749/850 


~ BSTAM.. 
4 BSTMS 2.5. .0es05. 


WHITESMITHS 
“C” Compiler 
Pascal (incl “C") 


. .$600/$30 
. .$850/$45 


“WORD PROCESSING" 


v Corrector. . 


WordSearch 
SpellGuard 
VTS/80 

Magic Wand 


Spell Binder. 
Select. 


“OTHER GOODIES” 
Forecaster na 
Micro Plan...... 
Plan 80........... 
SuperCalc 

WHOGty rosea heat 


Tiny “C" 

Ting’ cS Compiler 
Nevada Cobol. 
MicroStat. .. 


String/80 (source) 
ISIS ri DUlity 


INFO UNLIMITED 


.$109/$na 
.$179/$50 


$229/$25 
$259/$65 
$289/$45 


. .$349/$45 
. $495/Sna 


$199/$na 


. $419/$na 
. .$269/$30 
.$269/$na 
.$189/$30 


$149/$na 


.$149/$na 


$ 89/$50 


.$229/$50 
. .$129/$25 
. - .$224/$25 
.. .$130/$15 
. .$449/$50 


$449/$40 


. .$229/$20 
. .$224/$35 


$ 84/$20 
$279/$na 


. .$199/$50 
. $199/$20 


EasyWriter...........$ 


Datadex. . siesaines 
EasyMailer..... 
Other. . 


MICROSOFT 


Softcard (2 80 CRIM) 


MICROPRO 
Worastar 
MailMerge 


Sean MalMerae ie 


SuperSort | 
Spelistar... 


-less 15% 


$298 
$ 


PERSONAL SOFTWARE 
15 


Visicalc 3.3......... 
Desktop/Plan ‘Il 
Visiterm. 


Visiplot 


.$ 
Visirrend/Veiplot Ene: 
$1 


Visifile 
PEACHTREE® 
General Ledger 
Acct Receivable 
Acct Payable 
Payroll 
Inventory. 

wane GOODIES: 
Aner 

ear. 


vi oeaiiaicalel| ‘ 
Context Connector 


(usew/Visicalc). . .. 


Micro Courier. . 
TCS Apple 


(complete pusiness) 


Super-Text Il. 
Data Factory. . 
OB Master. 
Charles Mann. . 
STC.. 


ORDERS ONLY—CALL TOLL FREE VISA - MASTERCHARGE 
1-800-854-2003 ext. 823 + Calif. 1-800-522-1500 ext. 823 


Overseas—add $10 plus additional postage » Add $2.50 postage and handling per each item « California 
residents add 6% sales tax * Allow 2 weeks on checks, C.O.D. ok * Prices subject to change without notice. 
All items subject to availability *» ® —Mfgs. Trademark. 


THE DISCOUNT SOFTWARE GROUP 
6520 Selma Ave. Suite 309 + Los Angeles, Ca, 90028 - 


(213) 837-5141 


Int'l TELEX 499-0446 DISCSOFT LSA + USA TELEX 194-634 (Attn: 499-0446) 
TWX 910-321-3597 (Attn: 499-0446) 


$224/$40 
$224/$40 


. .$224/$40 
.$224/$40 


$224/$40 


$595/$50 


.-$ 79 


$129 


-$219 


s2ce/se0 
127 


. less 15% 


News & Views, continued... 


Supersoft will upgrade their ADA 
package to a completely validated 
version through subsequent releases. 
The package will most likely sell for 
about $300. They also rumored to be 
developing 8086/8088, 68000 and 
Z8000 versions.......Microsoft and Digital 
Research are both rumored to be work- 
ing on Visi-Calc look-alikes. 


Remember When? 

Do you remember when the Altair- 
8800 S-100 system came with a 1-Kbyte 
RAM card? With four cards you could 
run MITS 4-K Basic. Those were the 
days! Now, only six years later, you 
can get 256-Kbytes on one S-100 card 
and for a little more you can get a 9th 
parity bit with a parity-checker circuit. 
When will we see 1-Mbyte on a standard 
height (5”) S-100 RAM card? 

The new IEEE-696/S-100 standard 
specifies two board heights: standard 
5”, and a double height board 10” high. 
Several S-10 board manufacturers are 
planning to introduce products using 
this double height. Just imagine what 
you can put on a board of that size! 
Now, the question is—do | just leave 
the top off my mainframe, or do | get 
an extra-deep box? Oh well, it’s nice to 
have an S-100 system that is always 
changing, and keeping up to the “state- 
of-the-art”! B 


Microsystems Bug 

We sincerely regret that in the November/ 
December 1981 issue, the Pascal software 
in Jon Bondy'’s article “Virtual Segment Pro- 
cedures” was notin the correct order. Those 
readers who would like a correct print-out 
of the program should send a stamped (206), 
self-addressed #10 envelope to the author. 


~ 1S YOUR 
°North Star 
OUT OF SORTS? 
INCREASE YOUR BASIC’S 
SORTING POWER OVER 1800%! 


N*xSORT is easy to use and will perform 
sorts on one and two dimensional or 
string arrays using optional sort keys. 
For example, to alphabetize A$: 


10 A$ = "“ZYXWVUTS''\. REM Define String 
20 SRT A$,LEN(A$),1\ REM Sort A$ 


N*xSORT interfaces to any release 4 or 
later North Star Basic and can be yours 
for ONLY 

: $89 plus $1.50 shipping 
Send check VISA or M/C 

Complete Brochure Available 

ises Rubio Vista Road, Altadena, Calif. 91001 

(213) 791-3202 


Calif. Res. add 6% tax 
SZ Software Systems 


MICROSYSTEMS 


..- Hard Power from 
the Soft Support of 


A new and powerful computer has been born... 
the System 83. The versatile UNIX* operating system 
pilots the System 83’s raw power through a myriad of 
software such as “C”, FORTRAN, PASCAL, BASIC, 
COBOL, and even Networking. Step into 
a bold new frontier with more 

power than you ever 

dreamed possible. 


FEATURES: 

0 UNIX V7 configured by UNISOFT** 

O Full IEEE 696/S-100 Compatability 

CO MC68000 8Mhz Processor 

0 32-Bit Data Operations with 32-Bit Internal Registers 
0 16-Bit Data Transfer Operations 


O Memory Management Allows Concurrent Use 
of Mapped and Non-mapped Address space 


O Rugged Industrial Grade Components at all Levels 
016 Mb of Main Memory Directly Addressable 

07 Vectored Interrupt Levels 

D 192 Device-supplied Interrupts 

0 256 Kb of RAM with Parity Per Board Slot 

0 Up to 3.2 Mb of RAM Per Cabinet 


* UNIX is a trademark of Bell Laboratories and is supported 
on the DUAL System 83 by UNISOFT 


**UNISOFT is a trademark of UNISOFT Corporation of Berkeley, CA. 


DUAL SYSTEMS CONTROL CORPORATION 


system reliability/system integrity 


720 Channing Way @ Berkeley @ CA 94710 © (415) 549-3854 @ Telex : 172029 SPX 
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The CP/M Public Domain 
Software Libraries 

| consider one of CP/M’s most impor- 
tant advantages to be its huge public- 
domain software base. There are pres- 
ently two organizations which provide 
this public-domain software at essen- 
tially the cost of the media, postage 
and handling. Together they provide 
over 100 volumes (each volume is an 
8” single density floppy disk (containing 
well over 4,000 programs—some 20 
Mbytes of software—that the con- 
tributors have put into the public domain. 
Most of the software is in source code 
form. There are languages, applications 
packages, utilities, games and much 
more. 

The libraries are run by the CP/M 
User Group (CP/MUG) and Special 
Interest Group/M (SIG/M). The primary 
function of each group is the gathering, 
editing, cataloging, production and 
distribution of these disks. Both also 
have a printed catalog available. The 
CP/MUG is operated as an adjunct of 
Lifeboat Associates, an international 
distributor of commercial software. 
Lifeboat maintains the group with the 
assistance of the CACHE group 
(Chicago Area Computer Hobbyist 
Exchange). CACHE edits and catalogs 
the software and compiles each volume, 
while the CP/MUG collects the software 
and produces and distributes the disks. 
The SIG/M is operated jointly by the 
Amateur Computer Group of New 
Jersey (ACG-NJ) and the New York 
Amateur Computer Club (NYACC) 
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which is based in New York City. These 
two clubs have a joint membership of 
close to 2,000, with most using CP/M- 
based systems. The SIG/M performs 
all of the functions of collecting, editing 
and distribution of their software. 

The two groups have similar operating 
policies, distributing the disks to com- 
puter clubs who in turn are responsible 
for copying the software to supply 
their local area. Neither group is 
prepared to deal directly with individual 
users. For example, the SIG/M depends 
on a group of about a dozen hobbyist 
volunteers to do all the work on their 
own home systems. Hence, the SIG/M 
will furnish disks to individuals only if 
there is no distribution point convenient 
to the user. A list of the SIG/M distribu- 
tion centers is included at the end of 
this article. These groups generally 
distribute both the CP/MUG and SIG/M 
software. The general policy followed 
by groups distributing the software is 
to charge $1 per disk when the disks 
are copied at meetings of the group. 
Furthermore, most of this software is 
maintained on-line on several hobbyist- 
run dial-in systems across the country. 
A caller using a modem and some 
appropriate file transfer software (e.g. 
the MODEM or MODEN7 programs in 
the CP/MUG and SIG/M libraries) can 
down-load the software directly into 
his/her system. In fact, this is the 
preferred method to overcome disk 
system incompatibilities when the user 
has a non-standard CP/M system. If 
the user does not find the software on- 


line, he can ask that the system operator 
(SYSOP) load the software onto disk 
for transfer at some future pre-arranged 
time. 

Even if you do not transfer software 
from these on-line CP/M systems, it is 
interesting to read their bulletin boards 
as they often contain very useful infor- 
mation about users’ experiences with 
CP/M, MP/M and microcomputers in 
general. A listing of these remote dial- 
in CP/M systems, and how to access 
them, will be found in the May/June 
1981 issue of Microsystems. If you are 
interested in learning more about these 
software libraries, | would recommend 
that you first purchase a copy of their 
printed catalogs so you can see what 
software they have available. The CP/ 
MUG library catalog is available from: 
Lifeline Publishing Corporation, 1651 
Third Ave, New York, NY 10028. The 
catalog is $6 domestic, $11 foreign. 
Also, they publish a monthly twenty 
page newsletter which provides infor- 
mation on Lifeboat and CP/MUG soft- 
ware. The charge for the newsletter is 
$18/yr (U.S., Canada & Mexico), $40 
elsewhere. The NYACC (New York 
Amateur Computer Club) publishes a 
200 page catalog which contains the 
listings of both the SIG/M and CP/MUG 
libraries. They charge $10 for domstic 
orders and $13 for foreign. Order the 
catalog from: NYACC-CP/MUG, Box 
106, Church Street Station, New York, 
NY 10008. 

The SIG/M publishes an infrequent 
column which is carried on many of 


MICROSYSTEMS 


At last! A “SCREEN HANDLER” for cBASic2 programmers. 
.. Source code to handle full screen input with multiple screens. 


Sof Sea] reise F 2S EES 
a program module that makes data entry a snap. 

A SCREEN PRE-INPUT ACCESS 
HANDLER... POST-INPUT ACCESS 
nota Database fF = 2 2 = |] | SER 

Manager— SUBMIT ACCESS | _777_ 
not a File 

Handler — 


nothing else like 
it on a micro 


%include directly in program 

full screen input 

multiple screens 

user commands 

total programmer control in accesses 
terminal independent (> = 80 x 24) 
default editing with overriding 

screen maker utility 

screen tester utility 

run time terminal configurator utility 
separated programmer interface module 
easy to use ® easy to install 

demo disk available 

extensive manual 

not a database manager or file handler 
runs with CP/M and CBASIC2 


%INCLUDE DIRECTLY IN PROGRAM. SCREENMASTER is 
provided in source code and can be included directly in your 
program as if you had written it yourself. Total control of your 
program is thus assured. 


FULL SCREEN INPUT WITH MULTIPLE SCREENS. User 
enters data on the formatted screen of your design. A single 
screen can be converted to muitiple screens without program 
changes. 


USER COMMANDS. User has commands like FORWARD 
(n fields), BACKWARD (n fields), GOTO (field m), NEXT 
(screen), PRIOR (screen), or PRINT (screen p). User com- 
mands may be abbreviated, implemented as special function 
keys, or individually disabled. 


*CP/M a trademark of Digital Research, Inc. CBASIC2 a trademark 
of Compiler Systems, Inc. 


SCREENMASTER 
source code 


rArYrdYs 


Your program continues 


TOTAL PROGRAMMER CONTROL IN ACCESSES. Pro- 
grammer is given access to SCREENMASTER operations in 
the exits —pre-input, post-input, and submit. The post-input exit, 
for example, lets you override SCREENMASTER editing, 
change any field, issue any command, and issue or override 
any return code. 


UTILITIES INCLUDED. The SCREEN MAKER utility lets you 
develop and view your screen design interactively. The 
SCREEN TESTER utility lets you simulate the workings of your 
program by giving you interactive control in the exits. The 
TERMINAL CONFIGURATOR utility writes your terminal 
characteristics to a file that is read in when your program runs. 
Your terminal can be easily added to the list of available 
terminals. 


EASY TO USE. Even a novice programmer can use it. Issue a 
simple GOSUB. When it returns your validated data is available 
for your further use. No programming is necessary. But if you 
need to do something special—like search a file—you can doit 
yourself in the exits. 


FLEXIBLE. If you’re an experienced programmer you'll 
appreciate the lengths we've gone to to enable you to interface 
and modify SCREENMASTER. Initialization is a separate, well 
documented module. All communication with your data and 
screen formats is via functions in another separate, well 
documented module. Even the guts of SCREENMASTER is 
well documented, allowing some simple modifications. 


Send your check for $195 to MARKETING ESSENTIALS, 
INC., 206 Mosher Avenue, Woodmere, N.Y. 11598. Or call 
(516) 569-4533/(800) 645-2622. Manual available separately 
for $25, applicable towards the full purchase price. A demo 
disk is available for an additional $10. 


MARKETING ESSENTIALS, INC. 


206 Mosher Avenue/Woodmere, N.Y. 11598 


Telephone (516) 569-4533 /(800) 645-2622 


Nee Pluto Research 


Jools solve problems 


Based on UNIX utilities, Jools are tools for CP/M 
systems that solve common problems without 
special programs! You can: 


0 maintain mailing lists 

o maintain simple bibliographies 
© generate permuted indices 

o make rapid changes to files 


by using: 


o VSORT: sort large files on up to 
five keys 

o SELECT: select lines from files on 
up to five keys 

oFIND and REPLACE: find and 
replace regular expressions 


and eleven other utilities. 


$95. - software & manual 
$80. - software only 
$20. - manual only 


Formats: 8-in IBM format SD; Northstar DD 
Send check or money order (CA residents add 
6.5% sales tax) to: 


Pluto Research 
P.O. Box 50444 
Palo Alto, CA 94303 
415/323-5654 


Jools ie & trademark of Pluto Research Group; UNIX is @ trademark of 
Western Electric. and CP/M is @ tredemark of Digits! Research, inc 


Make your CP/M* 
application friendly 


CP/M DO.COM allows the CP/M operator to 
type a string of CP/M commands that will 
execute one at a time. So you can walk away 
fora while and let your computer do its thing. 
Example: 

A DO ASM PROG;LOAD PROG;DIR 
DO.COM, DO.ASM and DO.DOC for $29.00. 


STOK PILOT is a powerful language that allows 
developing a menu driven environment for any 
CP/M application, as well as developing an on 
line instructional utility for CP/M applications. 
This dual purpose of “System Control” and 
“CAI” provides for an unlimited range of uses. 
STOK PILOT makes CP/M transparent to the 
user by serving as a session control program 
that can chain from one program to the next in 
any other language! Ask your dealer to contact 
us to arrange a demo. You've got to see it to 
believe it! 

Disk and manual for $109.00. 


Software available in eight inch std CP/M format 
or Superbrain format. Write or call for other 
formats. NY residents please add sales tax. If 
you call us for info, we'll deduct the phone call 
from your order! 


Stok Computer Interface 
Dept. MS, P.O. Box 501 
Woodside, NY 11377 


(212) 426-7022 


*CP/M is a registered trademark of Digital 
Research 
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the remote dial-in CP/M systems and 
can therefore be read at no charge. A 
few of the systems even carry the 
complete catalog on-line. However, | 
recommend that you purchase acopy, 
as it is professionally printed and would 
take a very long time to down-load the 
catalog information. The S!G/M column 
is also printed in the newsletters of the 
NYACC and ACG-NJ. 

The costs of the disks are: 

CP/MUG: $8/disk USA, Canada & 
Mexico $12/disk overseas. 

SIG/M: $6/disk USA, Canada & 
Mexico International add $4. 

If the the SIG/M disks are copied at 
meetings of the ACG-NJ or NYACC, a 
donation of $1/copy is asked for. Sav- 


ings on postage and handling are avail- 
able from the SIG/M if more than one 
disk is ordered. When dealing with these 
groups you should allow 3-5 weeks for 
them to ship. The SIG/M disks can be 
ordered from: SIG/M, Box 97, Iselin, 
NJ 08830. The CP/MUG disks can be 
ordered from: CP/MUG, 1651 Third Ave, 
New York, NY 10028. 

Note that both groups furnish their 
disks also for North Star systems (DD 
or SD). When using DD, one volume is 
stored on two disks, for SD one volume 
is stored on four disks. Lastly, the SIG/M 
can also furnish disks in Apple (single 
density), Cromemco (5” & 8"), Micropolis 
Mod-I!I double density 5” and TRS-80- 
I/II/1 forms. @ 


SIG/M Software Distribution Groups 


John Evans 


618 “N” Street 


Thomas Oliver, Blue Hills CPMUG 


Blue Hills Rt 


Alaska 

Anchorage 99501 
Arizona 

Dewey 86327 
California 

Escondido 92025 


Richard Mason, (714)746-4832 


San Diego Computer Society 
1037 Park Hill Lane 


Imperial Valley 92251 


J.R. Pendley 


Imperial Valley Informal Computerists 
P.O. Box 158 


Gordon French, (415)325-4209 


Homebrew Computer Club 
614 18th Avenue 


Jim Ayers, CBBS (415)383-0473 


Apple CPMUG of Small Computer Users of Marin 


301 Poplar St. 
Bruce Kendall, 100 BUSS 


334 A. Camille Ct 


Bob Cobler 


Motherload Computer Club 


Charlie Foster, (916)392-2789 


Pascal/Z Users Group 
SIG/M - Western Coast Region 
7962 Center Parkway 


Menlo Park 

Mill Valley 94941 
Mt View 94040 
Nevada City 95959 
Sacramento 95823 
Sacramento 95816 


John Moorhead, (916)758-2495 


Sacramento Microcomputer Users Group 
P.O. Box 161513 


San Bernardino 92412 


Bob Massey, CP/M Users of Compuserve 


Compuserve 
P.O. Box 6212 
Simi Valley 93065 Kelley Smith, CBBS (805)527-9321 
CP/M-NET, (805)527-0518 
3055 Waco Ave 
Sunnyvale 94086 Samuel Daniel, Silicon Valley CPMUG S.D.C. 
500 Macara Ave 
Temple City 91780 Howard Stone, Temple City Computer Hobbyists 
P.O. Box 572 
Colorado 
Littleton 80123 Larry Thiel, Denver Amateur Computer Society 
W. Capri Drive 
Florida 
Hollywood 33024 Ralph Fernandez, (305)963-7893 


South Florida Computer Club 
1231 NW 72 Avenue 


MICROSYSTEMS 


Largo 


Titusville 


Georgia 
Atlanta 


Hawaii 
Honolulu 


Illinois 
Glen Ellyn 


Lake Forest 


Indiana 
Ft Wayne 


Indianapolis 


Massachusetts 
Bedford 


Littleton 


Michigan 
Grosse Pointe 


Royal Oak 
Westland 


Missouri 
St Louis 


New Jersey 
Iselin 


Riverside 
Pinebrook 


Cranford 


Clifton 


Chatham 
Cliffside Park 
Dover 
Piscataway 


Haddonfield 


33540 
32780. 


30338 


96826 


60137 
60045 


46805 


46219 


01730 


01460 


48230 


63131 


08830 


07001 


07010 


08033 


Richard Tremmel, Coastal Computer Club 
10585 119th St N. 


Michael Seay Space Coast Microcomputer Club 


995 Luna Terrace 


Lewis Mosley, Atlanta Computer Society 
P.O. Box 88771 
Atlanta, GA 30338 


Victor Mori, (808)955-6683 
2525 So. King St. 


Stanley Hanson 

192 East Road 

Calamity Cliffs Computer Center 
P.O. Box 392 


Geoffrey Priest, (219)423-1571 

Prestige Marketing Corp. 

909 N. Coliseum Blvd. 

George Wilson, Indianapolis Small Systems 
Group - CPMUG 

6808 E. 21st St. 


Dave Mitton, CBBS (617)864-3819 
New England Computer Society 
P.O. Box 198 

Neil Rosenburg, S-100 Club 

2 Deer Run 


Dave Hardy, (313)885-0506 
Technical CBBS, (313)846-6127 
736 Notre Dame, (313)846-8000 
Keith Peterson, CBBS (313)588-0754 
Ron Fowler, CBBS (313)729-1905 


John Taylor 
St. Louis Area Computer Club 
2009 N. Geyer Road 


SIG/M-Main HQ., CBBS (201)272-1874 
P.O. Box 97 

Kevin O'Connell, (609)461-4351 

Ray Glueck, (201)227-5361 

Micropolis CPMUG of ACG-NJ 

Bruce Ratoff, CBBS (201)272-1874 
SIG/M - CBBS, (201)272-1793 

26 Broad St. 

William “Bill” Chin (201)778-5140 
SIG/M - Operations/Editor/VP.ACG-NJ 
177 Hadley Ave 

Randy Reitz, (201)635-5642 

N*UG ACG-NJ 

Steve Leon, H (201)886-1658 

TRS-80 SIG/M Librarian, (212)488-7677 
200 Winston Drive 

Marty Nichols, (201)361-7180 

Steve Toth, (201)968-7498 

Apple Users Group ACG-NJ 

Michael Sulllivan, (609)795-5607 
Financial Software 

54 Grove St 


RADAR 
CP/M® DATA ENTRY 


An acronym for “Random Access Data 
Aquisition & Retrieval’, RADAR will convert 
any CP/M computer into a powerful data en- 
try station with complete key-to-disk 
Capabilities. 

RADAR provides all the most wanted 
features including full check digit verifica- 
tion, double key verification, 16 totalling ac- 
cumulators, date check, data type verifica- 
tion by masks, controlled access, etc. 
RADAR was designed and optimized for the 
highest possible throughput in demanding 
data entry enviornments. Written entirely in 
machine language, RADAR is extremely 
fast, guiding but never obstructing the 
operator. RADAR may be used to edit 
and/or update existing data and it supports 
access to individual data records by relative 
position or record content. Records may be 
added, deleted, inserted, appended or edited 
with ease. 


RADAR is the ideal replacement for key 
punch machines and 3741 type key-to-disk 
systems, combining the speed of key-punch 
with the convenience of CP/M’s virtual file 
access. RADAR’s many verification 
mechanisms insure the most accurate entry 
possible. 

A single user license is $495 and special 
multi-machine license arrangements are 
available. The user's manual is available 
separately for $25. 


For more information about RADAR contact: 
SOUTHERN 
COMPUTER 
= ) SYSTEMS, INC. 
PO Bor 3373A 
Birmingham. AL 35255 
(205) 933-1659 


CP/M is a registered trademark of Digital Research 


»Q@0" SNOW MICRO 
n@i SYSTEMS, INC. 


os ) .< ‘P.O. Box 2201 Fairfax, VA 22031 
et = 
ay 378-7257 

WV 

DMA S-100 FRONT PANEL SYSTEM 
This front panel system becomes a temporary S- 
100 bus master to access system memory and I/O, 
and requires no connection to the CPU card. The 


front panel system is designed as two cards: a 


. binary switch and display card, and an S-100 interface 


card. Both cards are 5" x 10". The display card is 
supplied with a standard “piggy-back” mount to 
the interface card, but can be separated for chassis 
mount. 

DSO Ktemccsacanss een secon $395.00 
D801 AGT icc ics. cc cenraoanrercimnns 14 ae ODOU 
STATION CONTROLLER CARD 
The Station Controller was designed for satellite 


tracking applications. This S-100 card is packed 
with features like: 7 analog input channels (A to 
D), 6 reed relays with 1 amp contacts and a 24 
hour hardware clock with battery backup provision. 
Use this card for home energy management, robotics 
or any real time control application. 
PES ANG ENE acai cascacitee-aisieh evinces 


. $245.00 


INTERFACE CARD 
The S-100/ RTTY interface that lets your 
computer talk to the world! Standard baud rates 
of 45.5, 50, 75 and 110. Mark frequency 2125, 
space frequency 2195 or 2175, with other 
frequencies user adjustable. 


AR.O1 kit $245.00 
AR.0O1 A&T F : . .$349.00 
To order send check or money order. Please 
include $5.00 (USA) $10.00 (nonUSA). VA 
residents include 4% tax. Dealer requests 
invited. 


more... 


SPECTACULAR 
OFFERS 


WABASH 


| [orus) 
MAXELL = OPUS 


We stock the complete line of BASF diskettes, 
reel-to-reel tapes, mag cards, disk packs and 
cartridges. We also carry MAXELL, OPUS and 
WABASH products. All are 100% certified and 
fully guaranteed. 


Box of 10 diskettes: 


OPUS ss/sd 
BASF ss/sd 


) BASF 


23024 
MAXELL . TOO LOW TO QUOTE. CALL 
5%"-10 sector-now available 


Sectoring must be specified. 


LIBRARY CASES 


8” Kas-sette/10 $ 
5%" Mini Kas-sette/10 .. $2.49 


HARDHOLE DISK PROTECTORS 
@ Reinforcing rings of tough mylar 
u protect disk hole edge from 
damage. 


Applicators 
Hardhole Rings (50) 


DISK DRIVE HEAD 
CLEANING KITS 


Prevent head crashes and 
ensure error-free operation. 


5%" or 8" 


SFD C-10 CASSETTES 
(All cassettes include box ana labels.) 


Get 8 cassettes, C-10 
Sonic, and Cassette/8 
Library-Album, as illustrated, 
for only 


SNAP-IT POWER CENTER 


Turns 1 outlet into 6. Wall 
mount or portable. Circuit 
breaker, lighted switch and 
UL approved. 


We also offer printer ribbons, printwheels, 
type elements, equipment covers, power con- 
soles, paper supplies, storage and filing equip- 
ment, furniture and many other accessories 
for word and data processing systems. Write 
for our free catalog. 


VISA * MASTERCHARGE * MONEY 
ORDERS ¢ CERTIFIED CHECK ¢ FOR 
PERSONAL CHECKS ALLOW TWO WEEKS 
¢ C.0.D. REQUIRES A 10% DEPOSIT ¢ CAL. 
RES. ADD 6% SALES TAX « MIN $2 
SHIPPING & HANDLING ¢ MINIMUM 
ORDER $10 ¢ SATISFACTION GUARANTEED 
OR FULL REFUND 


PRODUCTS 


CLAIREMONT MESA BLVD 
DIEGO, CALIFORNIA 92123 


Toll Free 800-854-1555 Order Only 
For Information or California Orders 


(714) 268-3537 
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Williamstown 08094 
Ocean 07712 


Pennsauken 08109 


New York 
Flushing 11355 
Henrietta 14467 
Dix Hills 11746 


Putnam Valley 10579 


Peekskill 10566 
Ohio 

Copley 44321 

Dayton 45432 
Oregon 

Portland 97212 


Pennsylvania 


Orefield 18069 
Whitehall 18052 
Sewickley 15143 
Erie 16509 
New Hope 
Texas 

Plano 75075 
Houston 77057 


Missouri City 77489 


Virginia 
McLean 22101 


Mike Mitelski, (609)629-0568 
Philadelphia Area Computer Society 
577A Prossen Ave, RD 3 

Thomas Lindsay, (201)946-9874 
Seashore Computer Club 

1108 Pollack Ave 

Dean Kelchner, (609)663-2842 

RCA Microcomputer Club 

5340 Peabody Ave 


Henry Kee, (212)538-3202 

SIG/M - Editor 

New York Amateur Computer Club 

42-24 Colden St 

William Nixon, Rochester RAMS 

115 Clooney Drive 

Gary Fishkin, Long Island Computer Assoc 

82 Dix Highway 

Bryan Lewis, NY Sorcerers Users Group 
RD 8, Florence Road 

Helmut Ripke, (914)739-3754 

Taconic Computer Club 

935 Frost Court 


Charles Lewis, C.D.G. 

379 S. Hametown Road 
Richard Conn 

4927 Woodward Park Drive 


Carl Townsend, (503)282-5835 
Portland Computer club 
4110 N.E. Alameda 


William Earnest, (215)398-1634 
Lehigh Valley Computer Group 

RD 1, Box 830, CBBS (215)398-3937 
Stan Rinkunas 

352 Sumner Ave 

Hassan E|-Zayyat 

256 Bank St 

Charles Fisher, Erie Computer Club 
5520 Herman Drive 

Jim Woolsey, (215)862-5806 
Delaware Valley Computer Club 

6 Stone Hill 


Fred Pfafman, (214)596-5034 
2320 Heather Hill Lane 
Jerry Ambroze 

Ambroze & Associates 

2168 Augusta 

Al Whitney, (713)438-1750 
SIG/M - South Central 

2003 Hammerwood 


Robert Teeter, (703)356-1745 
Metro Washington CPMUG 
6410 Furlong Road 
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DEVELOPMENT TOOLS 


Simplify your S-100 product development 
with our 10”x10” double-height wirewrap 
prototype and extender cards 


No downloading — No trial PROM burning. 
This port-addressed RAM on your §-100 host 
is the ROM of your target system 


10” HIGH 13” HIGH WORD/BYTE WIDE ROM SIMULATOR 
PROTOTYPE BOARD EXTENDER CARD @ Simulates 16K bytes of memory (8K bytes for 2708 and 2758) 


@ Regulators provide 5V @ © Scope probe hanger on @ Simulates 2708, 2758, 2516, 2716, 2532, 2732, 2564 


4A, +12V @ 1A 

Accepts over 120 IC’s plus 
3M-type connectors 
Heavy power distribution 
with 28 distributed 0.1 

ufd caps 


each trace 

Ground trace between 
signal lines 

Heavy power traces with 
removable jumpers for 
current measurement 


and 2764 PROMS 

The simulated memory may be either byte or 16-bit 
word organized 

No S-100 memory is needed to hold ROM data 
Driver program verifies simulated PROM contents 


Price $119 ea., 3 for $298 Price $68 ea. 


Price $495 each 


Learn the fastest, most compact and machine independent language for microprocessors - FORTH 


— LEARN FORTH NOW — 


Take our intensive one-week FORTH workshop. Enrollment is limited to 8 students. 
The course is offered once a month at $395 per student. 


Now you can develop code for a target 
Z8000 system on your 8080/Z80 CP/M® 
or Cromemco CDOS® based system 


Z8000 FORTH DEVELOPMENT SYSTEM 


Works with the Zilog Z8000 Development Module and may be 
easily tailored for use with other Z8000 target machines 
Includes Z8002 assembler 

Can produce code without header and link words for up to 
30% space savings 

can produce ROMable code 

79 Standard FORTH 

Price $1450 


Develop FORTH code for any target 
8080/Z80 system on your current 8080/Z80 
or Cromemco CDOS based system 


8080/Z80 METAFORTH CROSS-COMPILER 


@ Produces code that may be downloaded to any Z80 or 
8080 processor 
Includes 8080 and Z80 assemblers 
Can produce code without headers and link words for up to 
30% space savings 
Can produce ROMable code 
79 Standard FORTH 
Price $450 


P.O. BOX 888 * BELMONT, CALIFORNIA 94002 « (415) 591-8295 


typos and 
spelling 
errors with 


The 
Disc-tionary 


Documents with spelling errors and 
typos can destroy be company's 
reputation. The gift | 
allows you to find and correc 
errors quickly and easily. 


Recognizes more 
than 40,000 words! 


No other spelling correction 
system has this unique combination 
ps Shee of use, versatility, and 
value. 


Ease of use 


The Disc-tionary is not a 
collection of utility programs. 
The text is scanned at amazing 
speed, checked against the 
dictionary, and optionally marked 
by a single pro 


program, - 
When an unrecognized word is 


found, it may be added, rejected, 
ignored, or changed. Also, similar 
words may be displayed. 

All commands are selected from 
apa with the touch of a single 
ey. 

Dictionary eee word 
counting, and other functions are 
included in the main program. 


Versatility 


Optional modes are provided for 
automatic addition or rejection of 
all unrecognized words. 

Hyphens, and apostrophes are 
correctly handled. 

Optionally removes dozens of 
suffixes automatically (with or 
without user verification) or 
manually. Options allow total 
control of suffix removal. 

Large expansibility. 


At $79.00, The 
$7. sole) cuore ar coat 4 is 
priced far below 


similar programs 
and only a few 
dollars more than 
far less sophisticated ones, 
If you're not convinced, the 
manual is available separately at 
$15.00. (deductable from software 
price.) Software price includes 2 
free "bug fix" updates - if you 
ever need them, ; 
No shipping charge on prepaid 
orders, Mich residents add 4%. 


Requires CP/M*, 8 inch drive, Z80* 
cPU and 32k RAM. Works with ED, 
WordStar*® and most other editors 
and word processors. (Call or 
write for compatibility details.) 


*Trademarks: WordStar = MicroPro, 
CP/M — Digital Research, Z80 ~ Zilog 


STELLARSOFT 


841 Blonchette Dr., East Lansing, 
MI. 48823. Phone (517) 332-2459 


complete 
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Editor’s Page, continued... 


Fredricksburg 22401 


Charlottesville 22901 


Alexandria 22307 


Grafton 23692 
Washington 

Bellevue 98004 

Seattle 98117 
Wisconsin 


Milwaukee §3213 


INTERNATIONAL 


Australia 
Mytrle Bank 5064 


Canada 
Regina S4V0V7 


Vancouver V6B3A0 
Toronto M5G1X6 


Netherlands 
Rotterdam 


Venezuela 
Caracas 1061A 


Singapore 
Singapore 1543 


Singapore 0104 


Jack Williams 

Microcomputer Investors Assoc 
902 Anderson Drive 

A.C. Weaver 

School Of Engineering 

Thorton Hall 

University of Virginia 

William Higgs, (703)765-8043 
Washington Area TRS-80 Users 
1715 Hollinwood Drive 

David Holmes, (804)898-5913 
Digital Interest Group in Tidewater 
P.O. Box 1708 


George Clark, (206)454-6826 
Northwest Computer Society 
307 108th Ave S.E. 

David Rabbers 

Ballard CP/M Users Group 
6551 16th Ave NW 


Rick Martinek, CBBS (414)774-2683 
Ricks Computer Center, (414)774-8445 
5903 West Parkhill 


Anthony Beresford 
CPMUG of South Australia 
46 Cross Road 


Bob Stek, R.O.M.S. 

19 Mayfield Road 

Dave Bowerman 

P.O. Box 4476 

R.J. Dunn, (416)592-5788 
CP/M UG of Ontario HYDRO 
700 University Ave 


Hank Berkhoudt 
CP/M Groep 
Hesselskamp 4 
3085 SM 


Hans Stauffer 
Caracas Computer Club 
Apartado 66394 


Hans Stauffer 

c/o Eng. Eduardo Stiassnis M105 
Jet International Airport 

P.O. Box 592857 

Miami, FL 33159 


Alex Chan 

745 Mountbatten Road 

Naresh Kapoor 

Patel Computer Systems PTE 
2705-8 OCBC Centre Chulia St 


MICROSYSTEMS 


‘Clean Air’ for the North Star 
Dear Editor: 

The Vestal Press, Ltd. is a small specialty 
book publishing and distribution business, 
specializing in mechanical hobby books 
mainly in the field of antiquities. Books on 
player pianos, music boxes, merry-go-round 
organs, gambling machines and the like 
constitute the bill of fare. 

In 1980 the work load got to the point 
where a small computer was indicated, soa 
system consisting of a 48K Dual Density 
Quad machine together with an Anadex 
printer and a Hazeltine 1500 terminal was 
installed by Micro World Inc., of Vestal, New 
York. This firm wrote some very sophisticated 
software to handle order processing for about 
750 inventoried items, and an active mailing 
list of around 8500 customers. 

The environment in which the firm works 
is simply not as free of dust as one might 
like, but economic considerations rule out 
acompletely dust-free room just for computer 
operations. In spite of this, everything worked 
well for the first several months after the 
installation. 

Then we started to have rash of disk 
failures, all of which were quite obviously 
caused by dust on the read-write heads of 
the disk drives; three or four a week became 
common, and something obviously had to 
be done. Back-up disks provided a way of 
staying in business, of course, but much 
time was lost in following such procedures. 

Our dealer, Wayne Kashinsky, suggested 
that maybe reversing the muffin ventilating 
fan might help, so we did this and went one 
step better by constructing a filter holder 
on the outside of the machinee. The holder 
is made of sheet metal, with the large holes 
(the same diameter as the fan) being turned 
ona lathe, and the tube being rolled section 
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of the same sheet metal. The entire assembly 
was soldered together and then painted, 
and before being screwed to the back of 
the computer, a rubber-cork gasket was 
fitted. 

Since the installation, our disk failures 
have dropped practically to zero, so obviously 
the idea has served us well. 

We didn’t make any big engineering 
research effort to decide whether the air 
being heated by the power supply might 
cause trouble as it passed through the drives 
and the rest of “Winifred” (that’s what we 
call her), although we did make a casual call 
to a telephone-answering technician at North 
Star. He rendered an unofficial opinion that 
the idea probably wouldn't hurt anything, 
and might well help. 

So the lesson here is that forcing air 
throughout your North Star instead of sucking 
air into itand then out seems to help if you 
have to operate in an area which isn't as 
clean as you'd like. If you have experienced 
disk failures, we heartily recommend that 
you give this idea’a try! 

Harvey N. Roehl 

The Vestal Press Ltd. 

Vestal, NY 


No Help In Sight 
Dear Editor: 

My business uses a Cromemco Z2 com- 
puter and | have had three years of good 
service with it. However, this summer a 
piece broke in the PerSci disk drive and | 
have been unable to get it fixed. | have 
written PerSci, Cromemco, an advertiser in 
the Cromemco User's Group Newsletter, 
as wellas having a local dealer try to get the 
part for me. 


Cromemco did answer my letter after about 
six weeks, but offered no help. PerSci has 
yet to be heard from. The advertiser answered 
promptly, but did not sell parts. The local 
dealer drew a blank with PerSci, also. 

So | limp along with a single drive, not 
knowing where to turn. Cromemco is doing 
well, probably best of all the S-100 com- 
panies, and | see that PerSci has a new 
prestigious ad out. But can they compete 
with IBM with no spares support? 

Malcolm Gillis 

President 

MEGA Corporation 


Turnkey S-100 Systems 
For Schools 
Dear Editor: 

A brief examination of any of the current 
computer magazines (for example, the 
October 1981 Creative Computing) will reveal 
that the S-100/CP/M community is about 
to lose the educational market completely— 
or may have already lost it. This turn of 
events is unfortunate from the viewpoint of 
the manufacturers, because the market isa 
very large one. Even worse, it bodes ill for 
the future. A person who has become familiar 
with an Apple, PET, Atari, TRS-80 etc. asa 
student is very likely to select the same 
brand for personal or professional work later 
on. 

The cause of the problem is easy to locate: 
lack of a suitable, reasonably-priced TURN- 
KEY S-100 system on the market. The 
situation has more to do with system con- 
figuration than with price. A suitable system 
configuration is as follows: 

¢ Dual disk, 8- to 12-slot mainframe 
with main and disk power supplies. (Exam- 


15 


PRIORITY ONE ELECTRONICS 


CPU-Z - GODBOUT 
2/4 MHZ Z80 CPU 24 Bit Addressing 
GBT 160A PAB: ssrsiicass:isinrais nie, s.nnieisicle ee $199.00 
GBT 160C CSC 3-6 MHZ . $375.00 
DUAL PROCESSOR 8085-8088 - GODBOUT 
6 or 8 MHz Provides true 16 Bit Power with a standard 
8 bit S-100 bus. 

GBT 1612A A&T... $399.00 
GBT 1612C CSC... $498.00 
SOLID STATE DISK DRIVE, 3500% FASTER! 
Not Really, But the Next Best Thing For Godbout 
8085/88 Users. Call For Details on M-Drive. See Page 

340 of November BYTE 

GBT MD 128K 
GBT MD 256K 

2810 Z80 CPU-CA. COMP. SYST. 
2/4 MHz Z80A CPU with RS232C Serial I/O Port 
complete with Monitor PROM for 2422 Disk Controller 
CCS 210A AED eecesiieseisnestensne $280.00 
CB2 Z80 CPU - S.S.M. 
2/4 MHZ will accept 2716, or 2732, or RAM 
RUN/STOP and single step switches 

SSMCB2K i ignrorrrionconrncnor 


$1550.00 
$3,000.00 


$260.00 
SSMCB2A AGT rccwacandtanerinne $310.00 
SSMZ80M SSMZ80 Monitor... $89.00 
CBIA 8080 CPU - S.S.M. 
8080 CPU, 1K RAM, Holds 1 2708, 
1 8 Bit parallel input port. 
SSMCBIA E> wcciean meres shaeavins $183.00 
SSMCBIA AGT cecneseeresntesanns $225.00 
SSM8080M SM 8080 Monitor ..... $59.00 


§-100 I/O BOARDS 
SYSTEM SUPPORT 1 - GODBOUT 
Serial port (software prog baud), 4K EPROM OR 
RAM provision, 15 levels of interrupt, real time clock, 
optional math processor 


PART NO. DESCRIPTION UST PRICE OUR PRICE 
GBTI62A Assembled & Tested $39.00 $360.00 
GBTI62C CSC a ccnaemmmaagis $495.00 $460.00 
GBT6231 Math Chip $195.00 
GBT8232 Math Chip $195.00 
GBTIG2AM1 A&T with 8231 Math Chip $555.00 
GBTI62CM1 CSC with 8231 Math Chip $655.00 
GBTI62AM2 A&T with 8232 Math Chip $555.00 
GBTI62CM2 CSC with 8232 Math Chip $655.00 


MPX CHANNEL BOARD - GODBOUT 
//O Multiplexer, using 8085a-2 cpu on board 


GBTI66A Assembled & Tested $495.00 $450.00 
GBTI66C CSC i awisscssscawes $595.00 $550.00 
INTERFACER I - GODBOUT 
Two Serial I/O 
GBTI33A Ba csissienaesientes $249.00 $219.00 
GBTI33C CSC.. $324.00 $298.00 


INTERFACER II - GODBOUT 
Three parallel, one serial |/O board 
GBTISOA ABT oscuvererers $249.00 $219.00 
GBT150C CSC) isis sissieignine $324.00 $289.00 
INTERFACER III - GODBOUT 
Eight channel multi-use serial |/O board 
GBTI748A Assembled & Tested..$699.00 $629.00 
GBT1748C CSC 200 hr. Burn In 
TOS cswexecsousaste $849.00 $629.00 
INTERFACER 3 WITH 5 SERIAL PORTS 
GBTI745A Assembled & Tested $599.00 $59.00 
GBTI745C CSC 200 hr. Burn In $699.00 Test $629.00 
MULTI I/O - MORROW DESIGNS 
Three Serial, Two paralle! 
MDSMB3200 ABT ies csscweepes $329.00 $309.00 
SWITCHBOARD-MORROW DESIGNS 
Two serial I/O, four parallel I/O, 
one status port, one strobe port 


MDSSB2411 $259.00 $239.00 
1/04 - SSM 
Two serial |/O, two parallel I/O 
SSMIO4K Kit $210.00 
SSMIO4A A&T $290.00. $260.00 


2710 4 PORT SERIAL - CCS 
4 Full alan RS232 ports and optional 2K ROM 
608271001 AGT cacdiecates $340.00 $310.00 
2718 2 SERIAL & 2 PARALLEL - CCS 


2 RS232 C ports, 2 8 bit parallel ports, & optional 2K ROM 
6C$271801 AG Tevssisaes cane $360.00 $325.00 
2720 4 PORT PARALLEL - CCS 


4 8 bit poonne ports and optional 2K ROM 
CCS272001 AGT. civisscnases $250.00 $225.00 


S-100 10 MHZ STATIC RAM 


NEW LOW PRICES! 


32K STATIC RAM - GODBOUT 
RAM 20 10 MHZ, 4Kbyte block disable, bank 
or 24 bitaddressings available 8, 16,24 or32K 


PART NO. DESCRIPTION LIST PRICE OUR PRICE 
GBTI64AA8 8K A&T $210.00 $190.00 
GBTI64AC8 8KCSC $280.00 $260.00 
GBTI64AAI6 16KA&T $285.00 $260.00 
GBTI64AC16 16K CSC $355.00 $325.00 
GBT164AA24 24K A&T $355.00 $325.00 
GBT164AC24 24K CSC $425.00 $385.00 
GBT164AA32 32K A&T $425.00 $385.00 
GBTI64AC32 32K CSC $495.00 $450.00 


64K STATIC RAM - GODBOUT 
RAM 17, 10 MHZ, 2 Watt, DMA Compatable 
24 Bit Addressing 


GBTI75A48 48K A&T $650.00 $619.00 
GBT175C48 48K CSC 200hr. $750.00 $710.00 
GBT175A64 64K A&T $795.00 $755.00 
GBT175C64 64K CSC 200hr. $895.00 $850.00 


NEW! 32K x 16 BIT STATIC RAM - GODBOUT 
RAM 16 10 MHZ, 32K x 16 or 64K x 8 
/EEE/696 16 BIT 2 Watt, 24 Bit Addressing 
GBTIB0A 64K A&T $895.00 $850.00 
GBT180C 64K CSC $995.00 $945.00 
NEW! 128K STATIC RAM - GODBOUT 
RAM 21 10MHZ 128K x 8 or 64K x 16 
/EEE/696 8 or 16 Bit 1.2 Amps 24 Bit Addressing 
GBTI67A 128K A&T $1695.00 $1610.00 
GBTI67C 128K CSC $1895.00 $1795.00 


S-100 ROM 


PBI PROM PROGRAMMER - SSM 
Programs 2708 or 2716's, operates as 
a 4K/8K EPROM BOARD AS WELL. 

SSMPBIK Kit $179.00 
SSMPBIA Assembled & Tested $265.00 $220.00 

ECONOROM 2708 - GODBOUT 
16K x 8eprom Board using 2708, Power on 

jump to any 256 byte 


GBTI25A Assembled & Tested $135.00 $120.00 
GBTI25G }=CSC $195.00 $175.00 
S-100 VIDEO BOARDS 


SPECTRUM - GODBOUT 
Color Graphics board with Parallel |/O 


GBTI44A Assembled &Tested $399.00 $349.00 
GBTI44C CSC $449.00 $399.00 
GBT2D Sublogic Universal 
Graphics Interpreter Software $35.00 
VB - 3 S.S.M. 


80 x25 or 50 character video display Memory 
Mapped, Parallel Keyboard port 
SSMVB3K24 80x24 Kit $425.00 


SSMVB3A24 80x24 A&T $499.00 $440.00 
SSMVB3UP 80x50 Line Upgrade $ 39.00 
VB2-S.S.M. 

I/O Mapped Video Board, with Parallel Keyboard port 
64x 16 
SSMVB2K Kit $199.00 
SSMVB2A Assembled & Tested $269.00 $229.00 
VBIC - S.S.M. 


Memory Mapped Video Board 64x16 character 
display or 64x16 graphics display 
SSMVBIK = Kit 
SSMYBIA | Assembled & Tested $269.00 


$199.00 
$229.00 


S- — DYNAMIC RAM 


PRIORITY 1 ELECTRONICS 


THE EXPANDABLE 1™ 64 K Dynamic Ram board 
provides your S-100 system with 64K of reliable, high- 
speed dynamic RAM. Compatable with most of the 
major S-100 systems on the market, including those 
with front panels, it supports DMA operations and 
requires no Wait states with current microprocessors. 
@ User expandale from 16 to64K ° Supports DMA 
@ Designed to [EEE proposed S-100 bus standards @ 2 or 
4 MHz operation @ Operates with either an 8080 or Z-80 
based S-100 system, providing processor-transparent 
refreshes with both @ Supports |MSAI-type front panels 
@ Jumper-selectable Phantom input @ Uses Popular 
4116 RAMS e@ All /Csin sockets @ Any 16K block can be 
made bank-independent @ Fully buffered address and 
data lines @ Fail-safe refresh circuitry for extended Wait 
states @ Board configuration with reliable, easy-to-con- 
tigure Berg jumpers 


PRIEXPI16 16K Assembled & Tested $299.00 
PRIEXP132 32K Assembled & Tested $339.00 
PRIEXP1 48 48K Assembled & Tested $379.00 
PRIEXP164 64K Assembled & Tested $409.00 
S-100 DISK CONTROLLERS 


DISK 1 - GODBOUT 
FAST DMA, Soft Sector, Controls 8" or 5%", 
single or double density OUR BEST! 
LIST PRICE OUR PRICE 


GBTI7IA Assembled & Tested $495.00 $450.00 

GBTI7IC CSC... .. $595.00 $555.00 

GBTCPMsO* CP/M 2.2 for Z80/8085 $175.00 
with manuals & BIOS 
8” S/D disk 

GBTOAS8S Oasis 8 bit single user 8" S/D $500.00 

disk 

GBTOASEM Oasis 8 bit multi-user. 8° S/D $850.00 
disk 


2422A - CA. COMP. SYST. 
1/O Mapped, controls 8" or 5%" single 
or double density A&T with CPM 2.2 8" S.D. 

CCS2422A $475.00 $375.00 

DISK JOCKEY 2D - MORROW 

1/O Mapped, controls 8", single or 

double density, serial |/O 

MDS0J2208 4&T with CP/M 2.2 $399.00 $375.00 


S-100 DISK SUBSYSTEMS 
DISCUS SINGLE SIDED MORROW 
8" DBL Density drives with cabinet. power supply 
controller, with CP/M 2.2 and Microsoft Basic 
MOSFI218 Single Drive System. 1095.00 $950.00 
MODSF1228 Dual Drive System $1875.00 $1598.00 


DISCUS DOUBLE SIDED - MORROW 
8" DBL Density/sided drives with cabinet Power 
supply controller, with CP/M 2.2 and Microsoft Basic 
Single Drive System 1395.00 
Dual Drive System $2495.00 


MOSF2218 
MDSF2228 


$1250.00 
$2050.00 


S-100 HARD DISK - MORROW 
8° 10 & 20MB .14" - 26MB tormatted hard 
disk complete with cainet, PS. Controller, CPM 2.2 
and Microsoft Basic 


LIST PRICE SALE PRICE 
mosmi0s = 10 MB $3695.00 tee 
mODSM20S 20 MB $4795.00 p 
MOSM26S 26 MB $4495.00 $3495.00 


PRIORITY ONE ELECTRONICS 


S-100 SYSTEMS 


PNavoncrs 


seenene 


“LITTLE 8” Z80 SYSTEM STARTER SET 
GODBOUT 


CPU Z:A 4MHz Z80 A-based 8-bit workhorse CPU board that 
includes all the standard features plus many of the conven- 
jence options. Meets all IEEE 696/S-100 specifications, in- 
cluding timing. 

DISK 1 DMA High Performance Disk Controller: disk controllers don't 
have to be your system's bottleneck! The DISK 1 is lightning 
fast thanks to properly implemented DMA (with arbitration) 
and transfer that is independent of CPU speed. 

RAM 20 32K High Speed Static RAM. This board has it all Operates at 
speeds up to 10MHz, ultra-low power consumption, /EEE 
696/S-100 extended addressing protocol, bank select and 
flawless DMA 

CP/M 2.2; The de facto standard of 8-bit operating systems 
ready to load and go! 


NN 
ANOTHER PRIORITY 1 EXCLUSIVE! 


We went to GODBOUT and made a special buy on the 
nucleous of the best S-100 Z80A systems ever. 


LOOK AT WHAT YOU GET: 

1 GBTIGOA 2/4 MHz Z80 CPU ..........2.-ceeeeeeeees $295.00 
1 GBTIG4A32 32K 10MHz 

Static Ram 


1 GBTI71A DMA Disk Controllers 


1 GBTCPM80 CP/M 2.2............. $175.00 


UP TO...$1039,00 
TOTAL PACKAGE PRICEONLY $1095.00 
ORDER NO. PDBGBTSG 


SUPERSIXTEEN — GODBOUT 
LOOK WHAT $3495.00 WILL BUY! 
WHY WAIT ANY LONGER? 

HERE IS WHAT EACH PACKAGE INCLUDES: 

GBTI612A 6 MHz 8085/8088 Dual Processor Board 

GBTI71A High Speed DMA Disk Controller 

GBT162A System Support 1 Multi Function Board 

GBTI33A /nterfacer 1 Dual Serial |/O 

128K 10MHz Low Power Static Ram 

CP/M 86 16 Bit Operating System Ready to Load & Go 

Cables and Documentation Three interfacer cables one disk |/O 
cable, complete documentator for all hardware, and manuals 
for both CP/M operating systems. 

Compu Pro's famous 1 Year limited warranty. 


Now to the best part of all. If purchased separately, these 
quality components would list for $4,344.00. BUT SuperSixteen's 
low package price is an amazing $3,495.00, Yo save $849.001(For boards 
qualified under the Certified System Component high-reliabil- 
ity program - with extended 2 year warranty, 200 hour burn-in 
and 8MHz processors - add $600 to the package price. 


Sh. Wt 15 Ibs. 

PDBGBTSJ SuperSixteen A&T $3495.00 

POBGBTSK SuperSixteen CSC $4095.00 
$-100 SOFTWARE 


PRIORITY 1 is pleased to offer the finest in industry standard 
software. All software is supplied on 8" Single Density 1BM 
3740 CP/M compatible disketts. All software is sold “AS 1S” 
and is non-returnable. If you have questions about the soft- 
ware for your application, order the manual first 


€0$803 CP/M Version 2.2 Microcompouter $150.00 
Control Program ........- cece cence eeee 
CCS2301 MAC-CP/M MacroAssembler.... eae 
CC€S2401 S/D-CP/M Symbolic Instruction 75.00 
DObUGGE! 6:cecccwiaecesmiagar nese anne 
Ccs2501 TEX-CP/M Text Formatter ..... Lp 
CCS2601 DESPOOL-CP/M Background 50.00 
PHY cx sexirioacaresarnctaunctaonasees 


CP/M, MAC, SID, TEX, and DESPOOL are registered 
trademarks of Digital Research 


PART NO. DESCRIPTION LIST PRICE OUR PRICE 
CCS401_ 9=C-BASIC-2 Interp $150.00 139.00 
CCS401M Manual 32.00 
CCS1101_ FMS-80 by Systems Pius $995.00 erty 
CCS1101M Manual 70.00 


GRAHAM-DORIAN ACCOUNTING 


CCS1301 General Ledger $820.00 750.00 
$CCSI301M = Manual 50.00 
CCS1501 Accounts Receivable $820.00 750.00 
CCSI5SIM Manual $50.00 
CCS1401 Accounts Payable $820.00 $750.00 
CCS1401M Manual 50.00 
Ccsi701 Inventory II $820.00 $750.00 
CCSI701M Manual 50.00 
CCS1601 Payroll II $555.00 95.00 
CCSI601M Manual 50.00 
cces20001 Job Costing $820.00 750.00 
ccs2z001M Manual 50.00 
CC$2701 Order Entry/Invoice $820.00 750.00 
Ccs2701M Manual $ 50.00 
MEDICAL PRACTIC PATIENT BILLING 
CcS1801 15 Programs $820.00 HEY 
CCSi801M Manua 50.00 
DENTAL PRACTICE PATIENT BILLING 
Ccsi901 14 Programs $820.00 gree.ce 
ccCsi901M Manua 50.00 


ma 


S-100 MAINFRAMES 


S-100 MICROFRAME - TEI 
110V60HZ CVT Mainframes, the best money can buy! 
12 Slot +8V 17A +16V @ 2A 
22 Slot +8v @ 30A +16V @ 4A 


TEI has announced a 5 - 8% 


¥~ Hurry! 
Price increase Feb urry: OUR PRICE 


LIST PRICE 1-9 10-24 


TEIMCS 112 12 Slot Desk $685.00 $615.00 $570.00 
TEIMCS 122 22 Slot Desk $825.00 $760.00 $705.00 
TEIRM 12 12Slot Rackmnt $725.00 $720.00 $619.00 
TEIRM 22 22 Slot Rackmnt $875.00 $850.00 $750.00 
Shipping Weight: On 12 Slot Mainframes 45 Ibs 

On 22 Slot Mainframes 55 Ibs. 


S-100 FRAMES 2 - 5” 
DISK CUTOUTS - TEI 


+8V @ 17416V @ 2A +12V @ 1.2A, Internal Cables 


1-9 10-24 
TEITFI2 12 Slot desk $675.00 $625.00 $580.00 
TEIRDI2 12 Slot Rackmnt $795.00 $715.00 $665.00 


Shipping Weight: On 12 SlotDesk 40 Ibs. 
On 12 Slot Rackmount 45 Ibs. 


DUAL 8” DISK DRIVE CHASSIS - TEI 
For Shugart 800/801 R or 850/851 withinternal power cables provided 
+24V @ 154 +5V @ 1.0A-5V @ .25A 


1-9 10-24 
TEIDFOO Desk Top $535 $485 $455 
TEIRFDO Rack Mount $720 $670 $630 
POBDFDOS! §=DFDO with 1 Shugart 801R $970.00 
POBFDOS! = RFDO with 2 Shugart 801Rs $1375.00 
PDBRFDOS! = RFDO with 1 Shugart 801R $1095.00 
POBRFDOS2 §=AFDO with 2 Shugart 801Rs $1495.00 
PRISOPGCE2 = /nterna/ Data Cable.50 pin piug $34.95 


connector to 2 Card Edge. 
Due to UPS shipping regulations, disk drives will be shipped 
separately from the cabinet.Den't forget to include shipping for each 
drive. (Shipping Wt. 16 Ibs., each) 
CALL FOR NEW TEI PRICES FEBRUARY 1st. 


S-100 MAINFRAME - GODBOUT 


110V 60HZ CVT Mainframe uses famous 20 slot 
GODBOUT Motherboard. 55 Ibs. 
GBTENC20RM 20 Siot Rack Mount 
GBTENC20DK 20 Slot Desk Top 


$895.00 
$825.00 


$825.00 
$760.00 


GODBOUT Mainframe, Less Motherboard 
& Power Supply - Kit. 23 |bs 


GBTBOX DESK Desk Top Main Frame 
GBTBOX RACK Rack Mount Main Frame : 


S-100 MAINFRAME - CCS 


12-slot motherboard with removable termination card. 


$289.00 
$329.00 


60$220001 Office Cream 35 /bs $575.00 $535.00 
c¢s220002 Blue 35 lbs $575.00 $535.00 
$-100 MOTHERBOARDS 


MOTHERBOARD - GODBOUT 
Active termination, 6-12-20 slot 


GBTIS3A = A&T 6 slot, 2 Ibs $140.00 $126.00 
GBTI53C_ ~=CSC6 slot, 2 Ibs. $190.00 $175.00 
GBTIS4A A&T 712 slot, 2 Ibs. $175.00 $155.00 
GBTIS4C CSC 12slot,2/bs. $240.00 $220.00 
GBTIS5A A&T 20 slot, 4 lbs. $265.00 $235.00 
GBTI5SC = CSC 20 slot, 4 Ibs. $340.00 $310.00 
: 

eas PRIORITY 


or send $1.00 for your copy today. Sale prices are for prepaid orders only. 


9161-S DEERING AVE @ CHATSWORTH. CA 91311 


FLOPPY DISC DRIVES 


Tandon TM-800 Thinline is exactly 
half the size of conventional 8” 
floppy disk drives 


Exactly one-half the height of any other model. 

Propietary, high-resolution, read-write heads patented by 
Tandon 

D.C. only operation - no A.C. required 

Industry standard interface. 

Three millisecond track-to-track access time —9 Ibs. 


TNDTM8481... Single Sided $495.00 2 or more $470.00 
TNDTM8482... Double Sided$625.00 2 or more. .. $600.00 
TNDTMB8M.... Manua/not included with drive.... $10.00 


80IR - SHUGART 
Single sided doubledensity most popular 8" drive 


SHU80IR.... $425.00 ea. or 2 or more (16 Ibs.) $395.00 
SHUSABOIRM........ Manual for 80/R drives $10.00 
DT-8 - QUME 
Data track 8 double sided, double density 8” 
QMEDTS $575.00 ea or 2 or more (16 Ibs.)..... $540.00 
QMEDTOM.............. Manual for DT-8 . $10.00 
51%4"’ DRIVES - TANDON 
TNOTM1001 Single Sided, 250KB (5 Ibs) $310.00 
TNDTM1002 ... Double Sided; 500KB......... $370.00 
TNOTM1003. . Single Sided, 500KB....... . $375.00 
TNOTM1004 Double Sided, 1000KB $495.00 
TNOTMSM Manual, not included with drive . $10.00 


DISK CABINETS 


ee 
V-100 - VISTA 
@Deskorrackmountable @ Internal powerand data cables 
@ Drives pull out for easy service and maintenance 
VIS¥100 Disk Drive Cabinet (35 Ibs) $495.00 $449.00 
SINGLE 8” - Q&T. 
Single 8” cabinet with power tii 


QTCRBES (2 Dali. sccvanaaeste ats . $195.00 
DUAL 8”- QT. 
Dual 8" cabinet with power supply 
QTCOO COS: (25108) as: ssarceseosmascrnanxeaniens $349.00 
5°’ CABINETS - VISTA 
ViS-9801 . Single 5" with P.S. wdiesdadten $75.00 
VIS-9802 Dial” WR PS) scissicesmcsaiees $95.00 


MICROLINE — OKIDATA 


WITH FRICTION AND TRACTOR FEED 
@ BI-DIRECTIONAL - 120 CPS @ Parallel and Serial I/O 
@9x9 Matrix (Alphanumeric) @ 100 Through 1200 Baud 
©@ 6x9 or 12 Matrix for Graphics @ Self Test 
@5,8.3,10,16 Charactrs p/Inch @ Out of Paper Switch 
©6 or 8 Lines per Inch © Friction or Tractor Feed 
@80CPL® 10 CPI for 82A @ 3"to 14” Top of Form 
@ 132CPL@10 CPI for 83A (Switch Selectable) 

© 10 Different Character Sets 


Part No. Description List Price Sale Price 
OKIDAT82AT + 80CPL @ 10 CPI$ 799.00 539.00 
OKIDATS3AT «132 CPL @ 10 CPI $1195.00 750.00 


MX80 — EPSON 
WE SAY MORE? 
EPNMXBO Tractor Feed... .$645.00 $450.00 
PRINTER INTERFACES - ‘MICROBYTE 
RS232 Serial Conversion for MX80 
AG Fee ins casanclsnaaneanpmun soastep ian dieeies's $55.00 
Apple Centronics 8 bit parallel interface 
tor Centronics, sai & OKIDATA ines 
MBSAEID A&T....... : 
MBSAEC] Cable for above... 


ELECTRONICS 


MBSSEII 


MEMBER 


ORDER TOLL FREE (800) 423-5922 CA, AK, HI CALL (213) 709-5464 
Terms U.S. VISA, MC, BAC, Check Money Order,U.S. Funds Only. CA residents add 3% Sales Tax. MINIMUM PREPAID ORDER$15.00. 
Include MINIMUM SHIPPING & HANDLING of $2.50 for the first 3 lbs. plus 25¢ for each additional pound Orders over 50 lbs. sent” 
freight collect. Just in case, please include your phone no. Prices subject to change without notice. We wil do our best to maintain 
prices through February, 1982. Credit Card orders will be charged appropriate treight. See November BYTE for 60 page Catalog 


Letters, continued... 


ples: Integrand, QT). Combined keyboard/ 
monitor/mainframe not desirable because 
of potential maintenance problems. All 
system components should be individual 
boards with rapid swap of equivalent rebuilt 
unit via UPS Blue at nominal price as standard 
service procedure. (Have you ever heard 
of a high school with a competent inhouse 
electronics maintenance staff?) 

* 280, 8080, or 8085 CPU with ROM 
monitor. (Future expansion to 8086/8088 
if and when adequate software becomes 
available at reasonable price.) 

* 64K dynamic memory. Why not, 4116's 
are dirt cheap and the extra reliability of 
static is rot needed for most teaching 
applications. A unit with less memory should 


not even be offered. Bank select or extended 

* Good !/O facilities including at least 
one, preferably two, RS-232 ports (not merely 
serial ports) and Centronics printer port (not 
just unconfigured parallel port), plus keyboard 
port. At least one plain parallel |/O port or 
IEEE-488 port for experimental science 
applications. MP/M support needed as an 
option. 
addressing should be available for multi- 
user systems or extensive college-level 
applications. The memory should work 
reliably without refresh signal on the bus, 
to facilitate future expansion to 8086 or 
8088. 

¢ On-board 24 x 80 video, upper and 
lower case, with good graphics (say, 160 x 


SPECIALISTS IN 
CROMENCO AND S100 
BUSS SYSTEMS 


Get the maximum 
performance in software and hardware for your dollar. 


@ Software to enable use of other peripheral equipment. 

@ Upgrade your Cromenco system to a 10 Mbyte Morrow hard drive for $3,195.00; 
20 Mbyte for $4,295.00; and 26 Mbyte for $3,995.00. 

@ Hard drive disc controller handles over 100 Mbyte. 

® Complete single and multi-user software support for mixed drive systems- 
operating system handles 51/;", 8” floppy and hard drives. Operating system 
supports single, double and quad discs (i.e., 16 FDC compatible). Multi/OS™ 
operating system that will run both CDOS™ and CP/M™ programs. 

@ Conversion of Shugart 851 floppy discs so that they can be run as bothA &B 


(with your existing software). 


@ Custom software generated at reasonable costs for your special requirements. 

@ Complete accounting system: GL, AR, AP PR, Fixed Assets and Invoice 
Management for $200.00. Note: 700 page source listing is accessible. 

@ Select™ with Superspell™ the word processing software that contains the 
functionality of complex word processor systems yet retains the user-friendly 
single key stroke commands of simple screen editors. 

Custom system designs and software that maximize your dollar and are easily 


expandable to increase your capability. 


Call the Personalized Computer System division of KLB Incorporated 
at (617) 275-6601. Or you can write to us at: 44A North Road, Box J, 


Bedford, MA. 01730. 


™Multi/OS is a trademark of Infosoft Systems. Select and Superspell are trademarks of Select Information Systems, Inc 
™CDOS is a trademark of Cromenco. CP/M is a trademark of Digital Research. 
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240 or so), Graphics are extremely important 
for educational work, and S-100 hardware 
suffers from lack of any video standard, but 
especially from lack of a graphics standard. 
Memory-mapped is better than |/O-mapped 
because graphics are easier (just POKE from 
Basic) but the board should not permanently 
occupy main memory space. SSM VB3 would 
be nearly perfect if it were not so expensive.. 
It costs as much as an entire TRS-80 Model 
| did! A separate video terminal is not 
acceptable because graphics terminals cost 
too much. A good monitor (broadband, P- 
31 phosphor) and keyboard (George Risk 
is fine) should come with the package. Wiring 
to the keyboard should be rugged to the 
point of over-kill. 


¢ Dual 8-inch disk drives, both for 
capacity and because there is no standard 
for interchangeability in 5-inch drives. No 
educator will ever have the money to buy 


q all the course application software he needs, 


or the time to write it. It is urgent that the 
\exchange of software be convenient, and 
ithis means 8-inch disk. (The small disks are 
not cost effective, anyway. If density is held 
constant, you get three times the storage 
for 1/3 more money.) 

¢ Included CP/M with BIOS fully con- 
figured to support all system features. |/O 
BYTE should be implemented, especially if 
Microsoft Basic is used. 

¢ The price for all of this should not 
exceed $3200, including CP/M and an 
inexpensive Basic (TDL/CDL would be fine, 
although Microsoft would have sales appeal). 
| personally like Tarbell Basic, but it is a bit 
hard to work with. Having configured five 
CP/M systems, | know that the stated price 
is realistic. Even including a good printer 
(MX80 with graphics, for example), it should 
be possible to stay below $4000. (I realize 
the suggested price is somewhat below list 
for most S-100 vendors. This could be solved 
via “Educational Discounts” or several other 
ways. The S-100 manufacturers will soon 
have to come in at a price below the IBM 
personal computer, anyway, to survive in 
any market. To someone who does not 
understand the advantages of the S-100 
bus, the only advantage which this system 
would have would be 8-inch disks, and this 
is partly offset by the fact that the IBM unit 
uses the 8088.) 

¢ Areasonably priced multi-user version 
should also be available. There should be 
many ways to beat the price of an equal 
number of PET, Apple, or TRS-80 units. 
Pricing here is important, but not a urgent 
as the single-user system. Unless educators 
can get their hands on a reasonably priced 
single-user system to try it out, they will 
never get to the point of buying a multi-user 
system. 

If you have any comments on any of these 
suggestions, | would be delighted to hear 
them. | am not sure what | could do, as one 
individual college professor, but | would be 
happy to cooperate in any way feasible to 
bring these ideas to fruition. | believe action 
is urgent: if you lose the schools, you have 
lost the future. 

Robert J. Hanrahan 

Professor of Chemistry 

University of Florida 

Gainesville, FL 32611 
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Letters, continued... 


The S-100 UNIX Race Is On! 
Dear Editor: 

It's always nice to read glowing reports 
about wonderful new products, and then 
go out and buy them, take them home and 
plug them in and have them work as 
described. 

| had this experience recently. | bought 
the AMCALL package reviewed in Micro- 
systems, configured for the PMMI modem 
card, and it does what is claimed to do, very 
nicely. Thank you. 

It is not so nice to read the same kind of 
glowing reports, and then, when trying to 
buy the item, find out that one will probably 
never be able to buy the it. 

| had this experience recently, too. | was 
impressed by the claims made here and in 
that other magazine about the XENIX operat- 
ing system. Since | use UNIX at work, | 
would love to be able to run it at home. 
Having an 8086 CPU and lots of memory, | 
ought to be able to run it. Right? Wrong. 
Sorry, Microsoft says but XENIX can't be 
run without memory protection—i.e., my 
brand new IEEE/S-100 memory cards that 
replaced my pre-standard cards are not 
good enough? 

So how do! go about configuring XENIX 
for my home system? “You don't. We're 
only dealing with OEM's’ (Original Equipment 
Manufacturers—a general term for whole- 
salers). And, the OEM's they have selected 
are Altos, Codata and others, most of whom 


are selling hardware in the $12,000-$15,000 
price range and who, for the most part, 
couldn't sell their hardware. The marketing 
person at Altos didn't even know that the 
software for the new 8086 system was 
XENIX. 

“Aha!” you say. “Lifeboat has XENIX.” 
Great. | phoned them for details and learned 
that they have XENIX available, for $2000. 
It is available off-the-shelf. However, it is 
configured for the DEC (Digital Equipment 
Corporation) PDP-11/23 only. This isa very 
good computer in its field, but it is not a 
home computer unless you work for DEC 
and get staff discounts on hardware. 

| became very discouraged at this point, 
and was about to throw in the towel on 
XENIX. But | dug a little deeper and found 
not one, but two vendors preparing S-100 
UNIX versions. 

One of these is none other than Lifeboat. 
They have organized a 16-bit group, and 
are preparing an S-100 implementation of 
Xenix. | wouldn't expect anything from this 
source until the spring of 1982. 

The second source is Dual Systems, who 
have been advertising in Microsystems 
almost from its inception. In the November/ 
December issue, opposite the “Editor's Page” 
in which you (the editor) stated that ERG 
was first off the line with an S-100 68000 
CPU board, appeared Dual Systems’ ad for 
their 68000 S-100/IEEE-696 CPU board! 
This board, with its add-on memory manage- 
ment feature, is rumored to be the basis of 


Dual Systems’ S-100 UNIX offering. This 
will most likely be V7 UNIX (Berkeley UNIX, 
not Microsoft XENIX), and will probably use 
either the Konan SMD disk or Dual’s own 
disk controller. They can ship the CPU board 
now; you might expect to see the software 
sometime in January. 

Whichever of these two groups “gets it 
together” on time has a shot at getting a 
good corner of the S-100 UNIX/XENIX 
market. Best of luck to Lifeboat, DUAL, and 
anyone else who wants to get into the con- 
test. 

lan F. Darwin 

Toronto, Ontario 


Support for the Versafloppy 
Dear Editor: 

As a follow up to the letters from Ivan 
Berger and Robert Luckley, your readers 
may like to know that FBN Software can 
provide support for the Versafloppy disk 
controller. Our address is 1111 Sawmill Gulch 
Road, Pebble Beach, CA 93953. 

We have a BIOS for both versions of CP/M 
as well as a number of utilities for different 
disk formats. This software is available for 
the cost of the media and a nominal handling 
charge. 

Nick Hammond 
FBN Software 
Pebble Beach, CA 


SYSTEMS SOFTWARE AND TELECOMMUNICATION PRODUCTS 


By 


COMPUTER TOOLBOX, INC. 


THE LAST DISASSEMBLER 


e INTEL/ZILOG/PASM/ 
TDL AND XITIAN 
MNEMONICS ARE ALL 
SUPPORTED 


e ASCII PRECONDITIONER 
AND DUMP UTILITY IS 
INCLUDED 


e CAN BE CUSTOM 
TAILORED TO ANY 
Z80/8080 ASSEMBLER 


e CP/M COMPATABLE 
¢ $150/$25 MANUAL ONLY 


FORMATS: 


8” SS DD SOFT SECTOR 
5” DD NORTHSTAR CP/M 


OTHERS— CALL 
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A CP/M EXTENSION 


e EXPLOITS THE CP/M 
“USER” CONCEPT TO 
ALLOW ANY “COM” 
FILE RESIDING IN 
USER AREA 0 TO BE 
RUN FROM ANY OTHER 
USER AREA. 


EXTENDED DIRECTORY 
PROGRAM TO COVER ALL 
USER AREAS IS 
INCLUDED 


GREATLY ASSISTS IN 
THE DEVELOPMENT AND 
MAINTENANCE OF 
SOFTWARE/PROGRAM 
LIBRARIES 


e $100/$25 MANUAL ONLY 


ORDER FROM 


COMPUTER TOOLBOX, INC. 
1325 EAST MAIN ST. 
WATERBURY, CT 06705 
(203)754-4197 


SMART TERMINAL EMULATION 


e FULL/HALF DUPLEX SUPPORT 


¢ TERMINAL/HOST EMULATION 
AND TERMINATION 


e ASCII AND BINARY FILE 
TRANSFERS ARE SUPPORTED 


e COMMUNICATION SESSIONS 
CAN BE OPTIONALLY 
RECORDED ON DISK 


CP/M COMPATABLE 
$150/$25 MANUAL ONLY 


MENTION THIS ADD AND 
RECEIVE A 10% DISCOUNT 


(VALID THRU 2-15-82) 


CALL OR WRITE FOR FURTHER 
INFORMATION 


MICROSYSTEMS 


MAGIC TYPEWRITER (“Word Processing and Data- ve 
base Management in one program”) is an all-purpose tool that 
eliminates the need for separate programs for separate tasks. Word 
processing features include odd-even page headings and page num- 
bers, full justification, centering, or right and left justification, and 
embedded commands to alter format specifications within text. As a 
database management system, Magic Typewriter allows the user 
to customize the system to his own needs. You could buy a lot of 
different software—a fast-sort, a mailing list program, a text- 
formatter, a database manager, and half a dozen other special 
programs—or you could simply buy Magic Typewriter, the one 
program that does it all. Magic Typewriter is available in North 
Star DOS and CP/M at a cost of only $175. The manual alone 
is $20. Include $2 postage and handling. We 
accept Visa and MasterCard, and California 
« residents must add 6% sales tax. For further 
information, ask for our free brochure. 
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( CALIFORAIG QIGIT4L ENGINEERING 
PO. BOX 526 * HOLLYWOOD, CA 90028 


Bring the flavor of Unix 
To your Z80-based 
CP/M system with 

Unica 


“Unicum: a thing unique in its kind, especially an example of writing. 
Unica: the plural of unicum.” 


The Unica: a unique collection of programs supporting many features 
of the Unix operating system never before available under CP/M. The 
Unica are more than software tools; they are finely crafted in- 
struments of surgical quality. Some of the Unica are: 


binary file compare 
catenate files 
copy one or more files 
disk map and statistics 
horizontal file catenation 
create file links (aliases) 
directory lister 
- move (rename) files, even across users 
- remove files 
- source file compare, with resynchronization 
- in-memory file sorter 
- search multiple files for a pattern 
- spelling error detector, with 20,000 word dictionary 


Each Unicum understands several flags (“options” or‘switches”) 
which control program alternatives. No special“shell” is needed; 
Unica commands are typed to the standard CP/M command inter- 
preter. The Unica package supports several Unix-like facilities, like 
filename user numbers: 

sc data.bas;2 data.bas;3 
(compares files belonging to user 2 and user 3); 
Wildcard patterns: 

rm *tmp* -v 
(types each filename containing the letters TMP and asks whether to 
delete the file); 
1/O redirection: 

Is -a P list 
(writes a directory listing of all files to file“list”); 
Pipes: 

cat chap* ! sp! srt P Ist: 
(concatenates each file whose name starts with“chap”, makes a list of 
mispelled words, sorts the list, and prints it on the listing device). 


The Unica are written in XM-80, a low level language which combines 
rigorously checked procedure definition and invocation with the vers- 
atility of Z80 assembly language. XM-80 includes a language 
translator which turns XM-80 programs into source code for 
MACRO-80, the industry standard assembler from Microsoft. It also 
includes a MACRO-80 object library with over forty “software com- 
ponents”, subroutine packages which are called to perform services 
such as piping, wildcard matching, output formatting, and device- 
independent I/O with buffers of any size from 1 to 64k bytes. 


The source code for each Unicum main program (but not for the soft- 
ware component library) is provided. With the Unica and XM-80, you 
can customize each utility to your installation, and write your own 
applications quickly and efficiently. Programs which you write using 
XM-80 components are not subject to any licensing fee. 


Extensive documentation includes tutorials, reference manuals, in- 
dividual spec sheets for each component, and thorough descriptions 
of each Unicum. 


Update policy: each Unica owner is informed when new Unica or com- 
ponents become available. At any time, and as often as you like, you 
can return the distribution disk with a $10 handling fee and get the 
current versions of the Unica and XM-80, with documentation for all 
new or changed software. 


The Unica and XM-80 (which requires MACRO-80) are priced at 
$195, or $25 for the documentation. The Unica alone are supplied as 
*.COM executable files and are priced at $95 for the set, or $15 for the 
documentation. Software is distributed on 8” floppy disks for Z80 
CP/M version 2 systems. 


Knowlogy 


“Shaping Knowledge for Evolving Worlds” 
P.O. Box 283 
Wilsonville, Oregon 97070 


Visa/Mastercard customers call (503) 635-5701 after hours for. next 
day shipment. 

CP/M is a trademark of Digital Research; Unica is a trademark of Knowlogy: 
Unix is a trademark of Bell Telephone Labs: XM-80 is a trademark of Scientific 
Enterprises; Z80 is a trademark of Zilog Inc. 
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The CP/M Bus | 


by Anthony Skjellum 


Last issue, we discussed the concept of the sub-directory 
as a possible enhancement to CP/M. This month we will 
complete the discussion of possible enhancements for 
CP/M2 with the description of the internals of link records 
discussed in the July-August column. 

There are two additional items this month—a description 
of ZDM, a Z80 debugger, and a discussion of register 
usage in CP/M BDOS calls. 


More Features for CP/M Part IV 

Last issue, we introduced the concept of the link file. 
This type of file structure was designed to allow sophisti- 
cated data manipulation by permitting files to reference 
data belonging to other files. Two types of link files were 
proposed: the simple link file and the complex link file. 
Simple link files provided a limited but useful way to 
eliminate the need for multiple copies of the same file on 
a given disk. On the other hand, complex link files provided 
avery general way to create data structures. We will now 
discuss the internal format of link records used in complex 
link files. 

As stated before, link records consist of information 
which tells the BDOS what file or part of a file to access. 
First, the record itself is initiated bya *~ Y character and 
is the same length as the file record length. This marker 
serves to distinguish it from a data record. For standard 
files this is 128 bytes; for VLR files it must be at least 16 
bytes. In the July-August column, we did not clearly 
distinguish between link records and their contents (link 
instructions). We stated that the “maximum length of a 
link record is 16 characters...” What this means is that the 
maximum length of one line instruction in a link record is 
16 bytes. This is the smallest meaningful complex link 
request which can stand alone, which is why we require 
VLR files to have at least 16 byte records if they are to use 
complex links. Furthermore, it should be noted that files 
with sufficiently large record length are permitted to 
have multiple link instructions per line record. 

Now let's illustrate the format of link records and their 
instruction sequences. First, a standard instruction: 

“¥ ; indicator. Also is the first 


character of the first link 
; instruction for this record 


Bit seven of the first character 
is used internally to indicate 
if this is the last instruction. 
It is set high for the last 
instruction in this record. 


ses Se se te 


FILENAME.EXT ; 11 characters long 


MICROSYSTEMS 


<start> ; 16 bit quantity indicatingthe 
; first record that BDOS should 
; read. 
<end> + 16 bit quantity indicating the 
; last record BDOS should read. 
; If <end> is zero, 
3; read to eof. 


the file is 


We can abbreviate thisas ~*~ Y,FILENAME.EXT, <start >, 

<end> and will do so with further examples for the sake 
of brevity. We will write ~ Y! when the last command 
indicator is set. 

So far we have defined the basic command structure 
for a link instruction. Imagine the case in which we will 
link to several portions of the same file by contiguous link 
instructions. In this case, it becomes convenient not to 
require that the filé be named again. (In fact, it is preferable 
not to re-open the file either for the sake of efficiency.) 
This is done by creating acommand character in addition 
to * Y.We now add the character * X as asecond link 
indicator. A * X tells the BDOS that the file to be read 
was just read from and that only the <start > and <end> 
specifications follow. This link instruction is therefore 
only five bytes !ong. Once again, if this is the last instruction 
for the current record, the * X is replaced by ~* X! (i.e. 
* X+80H). 

We will illustrate this concept with the following example. 
We want to have a file link to three portions of a file 
named DATA.TXT. This will all be done in one link record 
by way of three link instructions. Again, we assume the 
standard CP/M record length of 128 bytes: 


“y,DATA.TXT,1,5 ; read sectors 1-5 inclusive 

“X,7,9 ; read sectors 7-9 inclusive 

“x!,20,0 ; read sectors 20-eof inclusive 
; and mark end of instructions. 


This would result in the following code in the link record 
(represented in hexadecimal): 

19 44 41 54 41 20 20 20 20 54 58 54 01 00 05 00 
“YD A T A bl bl bl bl T X T ~ 0001 0005 

18 07 00 09 00 


a 


X 0007 0009 
98 14 00 00 00 
“x! 0014 0000 


(with random bytes to end of record which are ignored) 
Remember, if DATA.TXT contains any link records in the 
portions read, they too will be returned as part of the 
operation. As discussed in the July-August installment, 
the extended file control block (EFCB) facilitates this; it 
must also be large enough to support the nesting depth 
actually used in the files. 

Several points are noteworthy. First, if indexing schemes 
are created with complex links, the * X mode will be 
avoided to simplify sorting of the link records. Also, note 
that ~ X sequences may not be continued past the end 
of a link record (same length as data records: 128 bytes 
for standard CP/M file). A ~ Y sequence must begin 
each new link record since it also serves to identify the 
record as such. This is not a serious restriction, as link 
records may be packed as desired. Also, a single 128 
byte record will contain 22 * X sequences following the 
initial ~ Y request. This would be quite sufficient for 
most applications. Of course, VLR files which use record 
lengths greater than 128 bytes may also have correspond- 
ingly longer link expressions. 

Having explained link records and link instructions, we 
have completed the discussion of the complex linking 
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MICROSTAT™ Release 2.0 
NEW oe 

RELEA Just some of the new features of Microstat Rel. 2.0 in- 

clude: new programs for moments about the mean, skewness, 
kurtosis and stepwise multiple regression, longer file names, faster 
sort routine, the ability to declare each data file's numeric precision 
and drive location plus an expanded user's manual with new appendi- 
ces for the equations and file structures used in Microstat. Also 
included is a Data Management Subsystem for file maintenance (edit, 
list, destroy, augment, sort, rank-order, move and merge) plus trans- 
formations (add, subtract, multiply, divide, reciprocal, log, natural log 
and antilog, exponentiation and linear) that allow you to create new 
variables from existing variables. 


After file creation with DMS, programs for analysis include: Descrip- 
tive statistics, Hypothesis testing (mean and proportion), ANOVA 
(one-way, two-way, and random blocks), Scatterplots, Frequency 
distributions, Correlation analysis, Simple, Multiple and Stepwise 
Multiple Regression (including files larger than available memory), 
Time series, 11 Nonparametric tests, 8 Probability distributions, 
Crosstabs and Chi-square, Combinations, Permutations and Factor- 
ials (up to one million factorial). All program output is neatly formatted 
for easy use. 


The price for Microstat Rel. 2.0 is $295.00 and the user's manual is 
available for $25.00 (credited towards purchase) and includes sample 
printouts with file lables that reference standard statistical texts and 
journals so you can compare the results from Microstat to those 
produced on much larger systems. Compare Microstat to any other 
package on the market and we think you'll agree that Microstat is the 
best at any price. 


I(nterchange) 


I(nterchange) is a general purpose file maintenance program for use 
with the CP/M™ operating system. Since it is a single program 
written in optimized Z-80'™ code, it is much faster and easier to use 
than other file maintenance programs. Features include: DIR as usual 
plus listing all files exc/uding those with a specified character(s), ERA 
as usual plus exc/usive erases. Also, a ‘’Q” switch can be used to query 
each erase, a “W" allows erases of R/O files without query (normally 
you are queried), and an ‘'R” switch if system files are to be included, 
LIST permits listings and uses TAB, WIDTH, LINES and WRAP for 
control, COPY as usual plus exc/usive copies and supports the “Q”, 
“W" and “R" switches plus an “E’’ switch for query on existing files, 
STAT with ambiguous, unambiguous and exclusive listings and produ- 
ces an alphabetized listing with file length, total directory entries and 
space used and unused, START-END allows for copying contiguous 
data files, and RENAME as usual plus ambiguous renames. Other 
commands include: OT, DATE, TIME and SETIT (for the OT clock 
board) plus CLEAR, RESET, HELP and TYPE. Disk copies can even be 
continued after a disk full condition by simply inserting a new disk. All 
of this in one program without ever having to leave I(nterchange) and 
wait until you see the speed improvement .. . 

The price for I(nterchange) is $59.95 and the manual is available for 
$10.00 (credited towards purchase). I(nterchange) is recommended 
for 32K or larger systems using CP/M™ 2.0 or later. It will not run on 
an 8080 CPU and only User O is supported. 


All programs are available on 8” SD or North Star 5%” disk. 
Microstat is available for North Star Basic, Microsoft's Basic-80 (Rel. 
5.0 or later) or compiler Systems CBasic2. Please specify when 
ordering. 


CP/M is a registered trademark of Digital Research. 


ECOSOFT, INC. 
P.O. BOX 68602 
INDIANAPOLIS, IN 46268-0602 
(317) 283-8883 
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NEW LOWER RAM PRICES 


LDP 1/2 


The LDP1/2 utilizes the advanced 8088 processor to 
provide up to 8 times the throughput of a 4 MHz 
Z80A processor. The powerful instruction set of the 
8088 is ideally suited to higher level languages such 
as PASCAL and PL/1. The 10 slot motherboard leaves 
7 slots for USER expansion. With the option of a 10 
MByte Winchester and MP/M-86, the LDP mainframe 
becomes a powerful multiuser system with the capability 
of handling 8 users without the degradation in per- 
formance experienced with Z80 CP/M systems. The 
performance of the LDP1 and LDP2 has never been 
available for such an affordable price. 


FEATURES: 

— LDP88, 8088 CPU board 

— LDP72, advanced floppy disk controler 

— LDP128K dynamic RAM 

— 1 serial RS232 port 

—10slot mainframe | 

— 18” floppy drive (LDP1), 2 8” floppy drive (LDP2) 
— 4K EPROM socket for user population 

— ROM resident diagnostics 

— CP/M-86 


OPTIONS: 

— HAZITALL 

— 8” 10 MByte Winchester 

— MP/M-86 multiuser system 
— Woodgrained 7 slot chasis 


PRICES: 

LDP/1 w/128K RAM 

LDP/2 w/128K RAM 

LDP/2 Winchester, 128K RAM 


SOFTWARE: 
CP/M-86 


LDP88 8088 CPU BOARD 


¢ 8088 CPU 5 MHz operation upgradeable to 8 MHz 
9 vectored interrupts * Fully complies with IEEE 696 
electrical and timing specs * RS232 serial port with 
modem controls * 1K bytes of static RAM * 2 EPROM 
sockets (2716 or 2732) * 8087 upgrade kit available 
in Sept. ¢ 8 bit bus eases interface to other S100 bus 
boards * 1MByte address space * 65K I/O ports 
PRICES: Kit $319.95 
Assembled & tested $349.95 


64/256K MEMORY 


¢ 8 or 16 bit operation * Meets all IEEE 696 specs » 
Access time 350 ns from PSYNC low =» Intel 8203 
dynamic RAM controller * 24 or 16 bit address decoding 
¢ No wait states with 5 MHz 8088 or 8086 » Parity 
with Error interrupt generation * No DMA RESTRIC- 
TIONS ° 64K board is upgradeable to 256KByte 
board 
PRICES: 64K $595 

128K 795 

256K 1395 


HAZITALL 


¢ 2 Serial RS232 ports « 2 parallel ports with handshake 
control ¢ Math processor support (8231/9511 or 
8232/9512) * WINCHESTER DISK support « Real 
time programmable interrupt * Clock/calendar with 
battery back up * Synchronous data communication 
supported 


PRICES: Kit $249.95 
Assembled & tested $325.00 


LDP72Z FLOPPY DISK 
CONTROLLER 


¢ IBM compatible single and double density format « 
Single or double sided drives * Programmable data 
record length (128 to 8192 bytes/sector) ¢ Multi sector 
and multi track transfer capability * Parallel seeks on 
up to 4 drives * On board digital data separator « 
Software selectable single or double density operation 
¢ Separate connectors for 5 1/4” and 8” drives ° 
Software selection of standard or minidrives allowing 
mixing of both drives on a single controller 
PRICES: Kit $219.95 
Assembled & tested $274.95 


Watch this ad for the announcement of the most powerful 
S-100 Bus CPU board avaliable. 


Lomas Data Products 


11 Cross Street 


Westborough, MA 01581 
Telephone (617) 366-4335 
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Introducing the fastest processor board 
available on the S100 bus today. . . 


The Lightning One 


8086/8087/8089 CPU Board 


Features: 

OO 4,5, 8 or 10 MHz operation 

jumper selectable 

8086 or 8088 main processor 

Independent I/O and memory 

waitstate generator 

C) Up to 16K bytes of onboard 

EPROM 

_] 9 vectored interrupts 

expandable to 65 

EPROM monitor with diagnostics 

and disk utilities 

L] 8087 and 8089 co-processors 

available onboard 

1) CP/M-86* and MS-DOS** soft- 
ware support 


a 


*CP/M-86 is a trademark of Digital Research. 
**MS-DOS is a trademark of Microsoft. 
Lightning One is a trademark of Lomas Data Products. 


The Lightning One™ contains not one 
processor, but three processors all 
working in parallel. It uses the Intel 
8086 as the main processor. The math 
capability is augmented with the 8087 
math processor and the I/O handling 
capabilities are augmented with the 
8089 dual channel I/O processor. The 
board complies with all IEEE-696 
specifications. 


If you have an 8 bit system presently, 
don’t despair. The Lightning One is 
available with the 8088. The 8088 is 
fully software compatible with the 
8086, but utilizes an 8 bit bus allowing 
use of your present 8 bit memories. 
When you are ready to upgrade to full 
16 bit operation, you need only to 
unplug the 8088 and plug in an 8086 
in its‘place. When using an 8088, the 
8087 and 8089 may still be utilized. 


In addition to the Lightning One, 
Lomas Data Products has a full line 
of S100 bus support cards including: 
memory, disk controllers, and serial 
and parallel I/O. 


Prices for the Lightning One 
start at $425. 


For 16 bit computing 
on the S100 bus, 
come to the leader... 


LOMAS DATA 
PRODUCTS 


11 Cross Street : 
Westborough, Massachusetts 01581 
Telephone: 617-366-4335 


Software for 


NorthStar 


Users 


EXPENSE PROFILE $29.95 


Now a program that really helps at 
income tax time. It summarizes 
expenses by categories and by 
person. Makes SEPARATE vs JOINT 
TAX RETURN comparisons simple. 


Promotes frequent review of 
spending habits. Guided by MENUS, 
add new expenses, categories, and 
users anytime. Quickly search to 
any item to make changes. Store 
expenses on disk automatically. 


DYNAMIC BUDGET $29.95 


Cope with rapidly changing economic 
conditions. Forcast effects of 
INFLATION on your family. 
CALENDAR built-in so recurring 


items like rent entered only once. 


Monthly listings of expenses, 
income, and balance. Change or add 
items anytime, data automatically 
stored on disk. 


PATHFINDER DISASSEMBLER 
$22.5 
Z80 or 8080 code. Pauses at each 
jump or call to allow you to follow 
program or continue straight 
ahead. Printer & video output. 


KID MATH $17.50 


Math drill. Watch speed, accuracy 
and confidence grow. 


TAX FORMS $49.50 


Fills out 1981 federal personal tax 
forms. Uses almost any printer. 
Write for details. Avail. Feb 82. 


First class postage paid in U.S. MD residents add 3% tax. 


The Software Connection 
10703 Meadowhill Rd. 
Dept KB _ Silver Spring, MD 20901 
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process. Such an added feature could be put to very 
good use in developing sophisticated systems software 


‘ and application programs under CP/M. 


ZDM: Z80 Debugger 

ZDM is a noteworthy software package. It is a useful 
Z80 debugging tool with good documentation. ZDM is 
$45.00 and is marketed by RD Software of Pacific Palisades, 
CA. Styled after the DDT transient, it supports Zilog and 
TDL-like mnenonics. | discuss ZDM because it is an example 
of inexpensive software of high quality. 

Documentation is a crucial part of a software package. 
Many discount packages provide only scanty documenta- 
tion a serious drawback. This is not true of ZDM. ZDM's 
documentation is concise: it says everything that needs 
to be said. DDT users will have no problem adjusting to 
ZDM and backup instructions are included to help the 
novice. 

Software should work as described. Inexpensive software 
is usually quite limited in capability and sometimes has 
serious limitations which become obvious only with use. 
Not ZDM: it works as advertised. 

Software should also be able to accomodate your display 
system. For example, DDT won't work properly with 64 
character displays, while ZDM can be initialized for the 
proper printing width and number of lines to print for its 
‘L’ and ‘D’ commands. 

My point is that well-written software need not cost so 
much. ZDM provides a full-featured debugger and includes 
the information needed to use it effectively. It is not 
limited like other inexpensive software, but has the power 
necessary to provide a fine debugging environment. Users 
should think seriously about supporting vendors who 
produce software of the same caliber and price range as 
ZDM. (For more information on ZDM, see the review in 
Dr. Dobb’s Journal, February 1981.) 

Register Usage in BDOS Calls 

This section is in response to a reader inquiry concerning 
register usage in BDOS calls. First, note that all 8080 
registers are modified during calls to the location BOOT+ 
5H. This requires that any program calling BOOT+5 take 
proper action to save any registers beforehand whose 
values must be used after the call. Since CP/M was 
written for the 8080, it is safe to say that the additional 
Z80 registers (IX, lY and the alternate 8080 set) will not 
be changed within BDOS. However, the BDOS calls the 
system BIOS routines which are customized for each 
CP/M installation. These subroutines could utilize these 
other registers, so considerable caution musébe exercised 
before assuming that CP/M will not modify a given register. 
Furthermore, software which assumes things about a 
given BIOS will not be portable. Therefore, it is advisable 
to assume the worst case so that the program will not be 
tied to a single machine. B 


- - — 


Errors In The Last Column 

We regret two errors that occurred in the last “CP/M Bus.” 
They were the following: 

1) The first two examples shown were positioned in reverse 
order. 

2) In third from last line of the text, the phrase “terminated by 
Z” should have read “terminated by “Z.” 


The editors wish to apologize to the author and our readers. 


MICROSYSTEMS 


MICROCOMPUTERS 


THE CHOICE 
JUST GOT EASIER! 


PR | CE $4390 Gets you a Tec-86 Complete 16 Bit 8086 System, including 64K Bytes of Memory, Dual 8 Inch Double Density 
Floppy Disks, and more. . . (See complete Tec-86 specs below.) 


PER FO R MAN CE Faster Processing, Increased Address Space, up to One Megabyte of available memory, and the Increased 


throughput of the the TEC-86 16 Bit System means that you can now do work on a microcomputer never before 
practical with the slower 8 Bit systems. 


SO FTW ARE CP/M-86™ Brings the World of CP/M software up to the 16 bit systems. BASIC-86™, MS-Fortran™, MS-PASCAL™ 
are just a few of the Languages currently available. 


EX PAN SION Memory Expansion up to ONE MEGABYTE. Disk Storage can be increased to over 30 Megabytes with our 


Winchester Disk Subsystem. Multi User Systems available soon! 


QUALITY Full ONE YEAR WARRANTY is standard on TECMAR components. This Warranty is possible due to our High 
Engineering Standards, and Thorough Product Testing. 


D ELIVERY We have been delivering 16 Bit Boards and Systems for nearly two years. Most orders are shipped from stock or 
within 30 days. 


$100 A/D $765 $4390 TEC-86 $4390 NEW — 64K/256K 
Analog to Digital Converter 16 BIT 8086 MICROCOMPUTER SYSTEM $100 MEMORY 


with Timer /Counter FEATURES: 5 MHz 8086 CPU * 64K Bytes RAM * S100 IEEE-696 * Dual 8 $595/$1695 


12 Bit Accuracy, 16 Channels, Inch Double Density Floppy Disk Drives * Two RS 232 Serial Ports, 50 to | 8 and 16 Bit Transfer for 8 and 
30 KHz Conversion, Five _ | 19200 Baud * Three Parallel Ports * ROM Boot for CP/M-86 * Heavy Duty 16 Bit Systems . 
Programmable Timer/Counters for: | power Supply * Attractive Industrial Quality Desk Top Cabinet * Completely | MP/Mand MP/M-86 Compatible, 
Time of Day Up to 7 users on one 256K board 
Triageri . Assembled and Tested * OPTIONS: Up to One Megabyte of Memory, | 5? « : ith : 
riggering Conversions Double Sided Double Density Flo Disks * Up to 31 Megabytes of Pay Petecicn dani: Einetieet 
Counting Conversions : : z y i Ppy 7 P 7 gabyt » | and LED Indication 
Counting External Signals Winchester Fixed Disk Storage. CP/M-86 BASIC-86 * MS-FORTRAN Hardware Write Protect 
Interrupting the CPU MS-PASCAL * CBASIC/86™ * PASCAL/M86 Full DMA Capability 
Options: Programmable Gain; 24/20/16 bit Address Decoding 
14, 16 Bit Accuracy; $ 1 0990 TEC-86W $ 1 0990 Enable /Disable 8K/32K Segments 
40, 100, 125 KHz Conversion; | Same Great Features as our TEC-86 except that the TEC-86W has 256K of }} Bank Select in 8K/32K Segments 
Expansion to 256 Channels RAM, and our 31 Megabyte Winchester Disk Subsystem. Meets IEEE-696 Specifications 


See our catalog for many other fine S-100 and Apple Boards including: — Analog to Digital 
Converters (16-256 channels; 12, 14, or 16 bit accuracy; 30, 40, 100, or 125 KHz; programmable 
gain; timer/counters) — Digital to Analog Converters (12 bit accuracy, 3 microsecond conversion) 
— 8086 CPU Board — I/O Boards — 16K Static RAM — Real-time Video Digitizer and Display. 


CP/M MP/M CP/M-86 and MP/M-86 are trademarks of Digital Research Inc BASIC-86. MS FORTRAN and MS-PASCAL are trademarks of MicroSoft Inc 
PASCAL/M86 is a trademark of Sorcim CBASIC/86 is a trademark of Compiler Systems Inc 


DEALER INQUIRIES INVITED 
AR TECMAR, INC. 


———}> 23600 Mercantile Rd. © Cleveland,OH 44122 (216) 464-7410 


PL/I For Limited Resource Computers 


PL/I, Programming Language One, has in one form or 
another been with us for nearly twenty years. Although a 
pragmatic language, it was considered large, unwieldy, 
and difficult to implement. Recently, however, the language 
has been revitalized through the efforts of the American 
National Standards Technical Committee X3J1 (1) where 
the General Purpose Subset language was defined. This 
so-called “Subset-G” language is upward compatible with 
full PL/I, but is designed expressly for minicomputer 
implementation. The elements selected for inclusion within 
Subset-G are the most commonly used facilities used in 
commercial, scientific, and educational application pro- 
gramming. Redundant language constructs, little-used 
facilities, and error-prone statement forms were eliminated, 
resulting in a sub-language which most observers believe 
is superior to the full language in many ways. 

ANSI Standard Subset-G is now available for operation 
on several minicomputer systems, including the Data 
General Eclipse and MV/8000, Prime Computers and the 
popular Digital Equipment Corporation VAX computer. 
PL/I-80, offered by Digital Research, is based upon Subset- 
G, and brings many minicomputer and mainframe facilities 
to the microcomputer application programmer. The 
following is a brief history of the PL/I language, a discussion 
of PL/I facilities, and an overview of the Digital Research 
implementation. 


Gary A. Kildall, Digital Research, Inc., Pacific Grove, CA. 


Reprinted from NCC 1981 Proceedings with permission of the 
author. PL/I-80, MP/M, CP/NET and CP/M are registered trade- 
marks of Digital Research. 
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by Gary Kildall 


PL/I was originally conceived in the early 1960's by the 
Advanced Language Development Committee of the Share 
Fortran Project in the wake of interest created by Algol, 
Fortran, and Cobol. Elements of each of these languages 
were incorporated into the original design: block structure, 
nested scope of variables, procedure formats, and array 
refenencing were, like Pascal, derived from Algol. Scientific 
facilities came from Fortran, including separate compilation 
expression formulation, floating point arithmetic, some 
1/O formation, and a wide variety of transcendental 
functions. Commercial processing in PL/I was derived 
from Cobol, including structures, decimal arithmetic, file 
processing, and picture formats. A variety of new statement 
forms were added to allow character string processing 
and error-exception handling, which were considered 
essential for high-level application programming. Real- 
time multi-tasking facilities were also added to allow PL/I 
to be used for systems programming as well. The language 
which resulted from this design effort contains more 
built-in data types, arithmetic operations, and general- 
purpose programming facilities than any other programming 
language available today. But herein lies the primary 
difficulty with full PL/I. The language is too large to 
implement effectively on any but the largest mainframes. 
The complexity of the language also inhibited proper use 
of all language features, while the unwary programmer 
was often trapped by strange twists and nuances of the 
language. Nevertheless, PL/I has proved to be a practical, 
pragmatic language for application programmers over 
the past several years, through implementations on a 
variety of mainframe computers. 
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The popularity of PL/I led to standardization efforts for 
the full PL/I language. The document produced by the 
ANSI committee for full PL/I gives complete syntactic 
and semantic specifications for the language in a form 
suitable for compiler and run-time system implementation. 
That is, the language specification describes the manner 
in which PL/I must be implemented in order to conform 
to the standard, but does not specifically cover PL/I 
programming practices. The full PL/I document is con- 
sidered one of the best language specifications produced 
to date. 

The Subset-G document, in turn, describes the portions 
of full PL/I which are to be included. Specific features 
which remain in Subset-G include: 


Decimal arithmetic 

Character and String Constants 
Restricted Array and Structure Assignments 
Allocate and Free 

Record (binary) |/O 

Stream (ASCII) 1/O 

Format Specifications with Pictures 
On-Conditions 

A wide variety of Built-in Functions 
Separate Compilation 

Initialized Variables 

Based Variables 


The Digital Research PL/I-80 programming system 
project was started in 1978, and completed two years 
later. PL/I-80 is based upon Subset-G, with nearly all of 
‘the Subset-G features, and operates under the Digital 
Research CP/M, multiprogramming MP/M, and CP/Net 
network operating systems for 8080, 8085, and Z-80 
microprocessors. The PL/I-80 programming system itself 
consists of the compiler, macro assembler, linkage editor, 
program librarian, and run-time subroutine library. 

The PL/I-80 compiler is a “three-pass” system that 
reads a PL/I source program prepared using a program 
editor, and produces a relocatable file as output. The first 
pass collects declaration information, and produces a 
symbol table used by subsequent passes. The second 
pass augments the symbol information and produces 
intermediate language in tree-structure form for subsequent 
code generation. Both passes analyze the source program 
using recursive descent. 

The third compiler pass is largely machine-independent, 
and consists of a comprehensive code optimization system, 
along with semantic handlers for 8-bit code generation. 
The optimizer processes the intermediate tree structures 
in three stages: first the trees are “normalized” and 
“flattened,” then analyzed by a “frame optimizer,” and 
finally processed by a “special-forms recognizer.” 

The normalization and flattening process reduces 
alternate forms of an equivalent expression to the same 
form, while rearranging expressions to reduce the number 
of intermediate temporary variables. The frame optimizer 
performs common subexpression detection within a limited 
range of tree-structures in preparation for later processing. 
This limited window provides optimizing information over 
a range of approximately ten to twenty statements, thus 
avoiding the processing overhead associated with complete 
program flow analysis. Trees annotated with optimizing 
information are then passed to the special-forms processor 
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where approximately three hundred tree-structures of 
special interest are matched and detected. Special-forms 
recognition allows concise sequences of code to be 
produced for many common statements. 

As an example, suppose the statements shown below 
occur in a PL/I-80 source program: 


K=1+J 
I=J +1 
A(I)= A(K) + | 


The normalization process rearranges the first statement 
to 
K=J+] 

The frame optimizer then marks | and K as equivalent 
expressions so that A(I) and A(K) are known to have the 
same address. The special-forms recognizer notes that 
the A(l) array element is simply being incremented, and 
thus produces an increment memory instruction to affect 
the operation. 

Generally, the PL/I-80 optimizing scheme produces 
dense machine code for all operations which are reflected 
in 8-bit and 16-bit architectures, including byte and word 
fixed point and bit string operations. More complicated 
data forms, such as floating point and decimal arithmetic, 
are performed out-of-line by calls to subroutines extracted 
from the run-time library. 

The PL/I-80 linkage editor combines relocatable code 
produced by the compiler and macro assembler into a 
machine-executable memory image. In addition, sub- 
routines are automatically extracted from the PL/I run- 
time library when referenced. The linkage editor also 
allows multilevel overlays so that a large application, 
such as amenu-driven inventory control program, can be 
effectively executed in a small memory region. 

The PL/I-80 programming system is currently being 
transported to 16-bit processors, with initial support for 
the Intel 8088 and 8086 processors so that designers 
may select either 8-bit or 16-bit host processors for their 
application programs. The transition to the Intel processors 
is simplified in two ways. First, the compiler itself is 
written in PL/M, Intel's high-level system language, with 
portions of the run-time system written in PL/I. Thus, only 
the semantic handlers need to be altered, along with 
conversion of the space and time critical run-time 
subroutines, such as the floating point library, which are 
implemented in assembly language. 

The PL/I programming system will be transported to all 
processors and operating systems supported by Digital 
Research in the future, and serves as the basis for 
application software written for the microprocessor industry 
by independent software vendors. 

Subset-G is a concise, consistent and practical language 
for professional programmers who write quality commercial 
application programs for their own use or for public 
distribution. Further, the rapid acceptance of the Subset- 
G standard in the minicomputer industry opens a wide 
customer base for application programs, while ensuring 
that those programs will not become obsolete. 82] 


Reference 

1. ANS Programming Language PL/I General-Purpose 
Subset (BSR X3,74), American National Standards Institute, 
1430 Broadway, New York, NY 10018. 
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Programming Style Comparisons: 
Digital Research PL/I-80 and 


Microsoft Basic 
by Michael J. Karas 


| recently purchased a copy of a newly introduced 
applications programming development system that is a 
microprocessor—oriented implementation of the PL/I 
programming language. This language, developed by 
Digital Research Inc., Pacific Grove, CA, is a powerful, 
structured compiler that is based upon the ANSII Standard 
PL/I Subset G. Gary Kildall of Digital Research has 
made this package compatible with the CP/M operating 
system for use on 8080/8085/Z80 microprocessors. The 
machine code developed by the compiler is also com- 
patible with the above family of microprocessors. 

PL/I was originally developed by IBM as a large system 
language that was to be the last answer for programming 
languages in that it contained capabilities similar to Fortran, 
Cobol, Algol, and Pascal. Over the years since its intro- 
duction, PL/I has gained a reputation and a “following.” 
The reputation has been that the compiler is huge and 
that the machine code modules produced are also huge 
(i.e. many bytes of memory are needed to run the compiler 
and the resulting programs). The “following” is a growing 
number of systems and applications programmers that 
have come to know the power of PL/I, ease of developing 
programs, degree of self-documentation within programs, 
structure, and ease of maintaining programs. As the 
language gained in popularity, several manufacturers of 
minicomputers (including DEC) developed subset imple- 
mentations of PL/I for their machines. Somewhere along 
the line a committee was formed to develop an ANSI| 
standard PL/I subset to permit program transportability. 
Note that the idea of developing a PL/! subset was not 
to remove power or to limit capability of the language. 
Instead, much redundancy and feature overlap was 
removed to make the compiler requirements smaller 
and manageable in “minicomputer amounts. of 
memory.” 


Michael J. Karas, 2468 Hansen Ct., Simi Valley, CA 93065 
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About three years ago, Gary Kildall of Digital Research 
saw that there would be a need and a market place fora 
good compiler-type language for microprocessors. He 
decided that PL/I in a subset form would be the way to 
go. The results of his (and I’m sure also that of others at 
Digital) efforts is PL/I-80. This compiler, in my opinion, 
is the best thing to happen to the microprocessor field in 
several years. For those people who are serious applica- 
tions programmers trying to develop sophisticated appli- 
cations packages, the PL/I-80 system is the answer. The 
reasons are many, some of which were mentioned in the 
previous paragraphs. In using PL/I-80 for several months 
now, | have to say that the programs made in PL/I are 
blessed with the following advantages: 


a) Structure is inherent in the programming style. 

b) Programs are extremely self-documenting. 

c) The compiler is fast and makes efficient code that 
also runs fast! 

d) Linkage of programs to assembly language or the 
CP/M operating system is easy. 

e) The linkage capability includes a simple to use and 
powerful library and overlay generation capability. 

f) Data types included in the language are compre- 
hensive. 


The PL/I-80 system has some minor disadvantages 
that I'll mention just to set things straight for all those 
people who are hung up on other languages. As it is a 
compiler, the development time from coding to running 
code is much longer that an intrepreted language like 
Basic. The program development time for the inexperi- 
enced PL/I programmer will generally be about five 
times as great as programming in Basic. | have found 
that, as | gained familiarity with the PL/I-80 features and 
had the use of a good screen mode video editor, program 
development time was somewhat less than twice that of 
Basic. 
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Also, small programs seem to turn into very large 
.COM files. (Small programs that do any I/O get large 
quickly due to included device and file interface code.) 
The real efficiency of the generated code is felt when 
source code programs start to get up into the hundreds 
of lines. Small programs will typically be 60 to 100 lines, 
and will generate 9 to 15 kbytes of machine code. Once 
large portions of the runtime library become utilized by 
the program's logical contents, then each additional 20 
to 30 lines of code may only add a portion of a “Kbyte” to 
the .COM file. 

Program checkout also tends to be harder if you desire 
to be a “seat-of-the-pants” programmer. Minor editing 
and logic mistakes cause a lot of time to be consumed in 
re-editing, re-compiling, and re-linking the program that 
is under development. Most Basic programmers | know, 
including myself, tend to design and kludge programs 
right at the console due to the immediate testing con- 
venience offered by an interpretive language. A more 
serious programmer will tend to “design and conceptualize” 
a program ahead of the coding process. This makes for a 
better, more structured, and logically correct program. 
(For additional thoughts on design and conceptualization 
see Greg William's editorial in the March 1981 Byte, 
page 6). When | make a PL/I program it tends to be 
developed by the latter process. The linking capability 
also allows programs to be developed in modules so 
that editing and manipulation of programs is done in 
small segments. 

| often get asked the question, ‘‘What is PL/I-80 like?” 
In an attempt to answer that question the remainder of 
this article will present a programming problem in both 
Microsoft Basic and Digital Research PL/I-80. The aim 
is neither to try to teach the reader how to write PL/I-80 
programs nor to demonstrate the full power of the 
language. | also want to stress that while this example 
can be implemented in either Basic or PL/I-80, it should 
be noted that the latter language will generally provide a 
much better vehicle for implementing complex algorithms 
into a program, due to the available language features 
and constructs. Obviously this cannot be demonstrated 
in a short magazine article. The following examples are 
meant primarily to show one simple method of solving 
the same problem in two different computer languages. 
The comparison to Basic was selected due to the fact 
that more readers probably know Basic than any other 
language. This will permit the most enjoyable contrast of 
programming styles for those readers just now getting 
their first glimpse of PL/I-80. 

The example programs are both designed to perform 
exactly the same function. The idea is to read a name/ 
address/telephone number file in sequence. The data is 
then formatted to list the names and addresses in a 
format compatible with mailing labels on the printer. As 
each name is printed on its label, the name and telephone 
number are listed on the console. This example is designed 
for demonstration purposes only and may not represent 
an efficient or feasible implementation of the above 
name and address algorithm. 

The input data to the program is expected to exist ina 
file named “NAMES.DAT” on the default CP/M disk 
unit. The demonstration format for this file and some 
test records are shown below. Note that the data may 
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Programming Style Comparisons, continued... 


have been formatted into these records by another 
program or through use of an editor. Also the field length 
is only typical and may be impractical in a real processing 
application. Field identification is as follows: 

last name, 8 bytes 

first name, 8 bytes 


/* print names to printer on mail labels */ 


put file(syslist) edit(strip(firstname) ,midinit, 
',' strip(lastname) , 
strip(address) ,strip(city), 
state,zip_code) 
(skip(3) ,a,x(1),a,a,x(1),a,skip,a, 
skip,3(a,x(2))); 
end; 


. ot ie /7* function routine to return a string of varying length based upon 
middle initial, 1 byte input string with all trailing blanks removed */ 
address, 20 bytes strip: 
i proc(string) returns(char(50) varying); 
city, 11 bytes cl 
state, 2 bytes string ansetsa) varying, 
. i,j b £ 6(15); 
zip code, 5 bytes “oe nae 
i=0; 
phone number, 10 bytes — aa to cenent: Taxi 
Records are terminated with carriage return and line ea, | ANA PAL RECN ERSTE SE TA 
feed pairs. string=substr(string,1l, (length(string)-i)); 
return (string); 
end strip; 
Example Input Data eee 
/* end of pl/i program */ 
KARAS MICHAEL J245@ HANSEN CT SIMI VALLEYCA930658055277922 
SMITH KELLY $3055 WACO AVE SIMI VALLEYCA930638055270518 j jiati H H . 
JOHNSON JACOB B2793 ANDREW COURT MANKADO MN567056123424469 The following listing shows a simple Microsoft Basic 
ERICKSONSKIELA P454 B UNIVERSITY AVEFARGO ND581024154435523 j inti 
& ILLIAMSDALE F35912 CIRCLE MTN DR DAVENPORT 1'W590342179557451 program to perform the same function of printing the 


HANSEN MICHAEL H2486 KARAS CT SIMI VALLEYCA930658055279355 
KARAS HANSEN J8324 MICHAEL CT SIMI VALLEYCA930658055277922 
NT XON GERALD R9355 KENNEDY BRIDGE OVER RIVER MS204312225551212 
PAULSON DEBBI 06599 HOLLOW TREE RD ROLLING LOGIL569433984535551 


The following program listing presents a PL/I-80 imple- 
mentation of a program to read the above data and print 
the console list and the mail labels at the printer. Observa- 
tion of the program structure and the various PL/I-80 
constructs is left for the reader. 


A Short Mailing Label Printing Program in PL/I-80 


imaillab; 


/* 


/* 


/* 


procedure options(main); 


del /* declare all variables */ 
database file, 
syslist file, /* printer output name */ 
nulstr char(1) varying, 
1 record, /7* a structure for cata */ 
2 lastname char(&), 
2 firstname char(8), 
2 midinit char(1l), 
2 address char(20), 
2 city char(ll), 
2 state char(2), 
2 zip code cher (5), 
2 phone_num char(10), 
2 filler char(2), /* cr-lf filler from record */ 
1 phone format based(p),/* overlay template for phone ¢ 
2 area char(3), 
2 prefix char (3), 
2 line char(4), 
Pp pointer; 


open file(database) input record sequential title('names.dat'); 
open file(syslist) output stream print title('S$lst'); 


setup what to do if we try to read the file and there is no more data 
on endfile(database) begin; 
close file(database); 
put file(syslist) skip; 
stop; 
end; 


tell operator to put mail labels into printer */ 
put edit('Put mail labels into printer,', 
‘Type "GO" when ready....') 
(skip(3),a,skip,a); 
get list(nulstr); 
set address pointer for phone formet overlay template */ 
peadér(record.phone_num); 
read data into structure and then print the mail labels */ 
do while('l'b); /* a forever loop!? */ 
read £ile(database) into(record); 
/* put names and phone numbers to console */ 
put skip edit(strip(firstneme),' ', 
strip(lastname),' (', 


area,') ',prefix,'-',line) 
(3 (a) ,co1 (20) ,6(a)); 


32 


console listing and mail labels upon the printer. Once 
again the logical program analysis is left to the reader. 
Note that in order to facilitate program comparisons, the 
logical program structure of the Basic program is kept 
nearly the same as the previous PL/I-80 program. 


10 REM 

20 REM 

30 REM 

40 REM 

50 REM ‘TELL OPERATOR TO PUT LABELS INTO PRINTER 

60 REM 

70 PRINT: PRINT: PRINT 

80 PRINT "Put meil labels into printer." 

90 INPUT "Type 'GO' when ready....",NULS 

100 OPEN "I",41,"NAMES, DAT" 

110 REM 

120 REM SETUP FOR END OF FILE EXIT 

130 REM 

140 IF EOF(1)<0 THEN 470 

150 REM 

160 REM READ FILE RECORD AND FORMAT DATA 

170 REM 

180 LINE INPUT #1,RECS 

190 STRIPS$=MIDS$ (RECS,1,8) 

200 GOSUB 530 

210 LNS=STRIP$ 

220 STRIPS$=MIDS$ (REC$,9,8) 

230 GOSUB 530 

240 FNMS=STRIPS 

250 MIS=MIDS (REC$,17,1) 

260 STRIPS$=MIDS$ (REC$,18, 20) 

270 GOSUB 530 

280 AD$=STRIPS 

290 STRIPS$=MID$ (RECS, 38,11) 

300 GOSUB 530 

310 CTYS=STRIP$ 

320 STS=MIDS (RECS, 49,2) 

330 ZPS=MIDS$ (RECS, 51,5) 

340 PHS=" ("+MIDS (RECS,56,3)+") "+MIDS$ (RECS$,59,3)+"-"+MIDS (RECS, 
62,4) 

350 REM 

360 REM PRINT NAME AND PHONE NUMBERS TO CONSOLE 

370 REM 

380 PRINT FNMS;" ";LN$;TAB( 30); PHS 

390 REM 

4GG KD PRINT NAMES ON LABELS AT PRINTER 

410 REM 

420 LPKINT: LPRINT 

420 LERINT ENMS;" “;mMIS;". "3; LNS 

440 LPRINT Ans 

45G LPRINT Cry$;" ";5TS;"  "3ZPS 


£5G GOTO 140 

47( CLOSE 1 

> SYSTEM 

£0 END 

2G Rkte 

O REM 
STRING 

C KEM 

G lk MIDS (STRIPS,LEN (STRIPS) ,1)<>" “ THEN RETURN 

C STRIPS=SMIDS (STRIPS,1,LEN (STRIPS) -1) 

{ GOTO 530 


SUBROUTINE ''0 STRIP EXCESS BLANKS OFF THE END OF A 


\f either of the above programs is run, the output at 
the console appears as follows. A <cr> indicates operator 
data entry and carriage return key depression. 


MICROSYSTEMS 


Console Output From Program 


Put mail labels into printer. 
Type 'GO' when ready....GO<cr> 


MICHAFI. KARAS (805) 527-7922 
KELLY SMITH (805) 527-0518 
JACCK JCHNSON (G12) 342-4469 
SHIELA EKICKSON (415) 443-5523 
CALE WILLIAMS (217) 965-7451 
MICHAEL BANSEN (805) 527-9355 
HANSEN KARAS (305) 527-7922 
GERALD NIXON (222) 555-1212 
DEEBI PAULSON (398) 453-5551 
&> 


The following listing shows the printer output from 
either program. Only a portion of the listing is shown to 
give the idea without wasting too much paper. [v3] 


Printer Output 


MICHAEL J. KARAS 
2458 HANSEN CT 
SIMI VALLEY CA 93065 


KELLY S. SMITH 
3055 WACO AVE 
SIMI VALLEY CA 93063 


JACOB B. JOHNSON 
2792 ANDREW COURT 
MANKADO MN 55705 


SHIELA P. ERICKSON 
454 B UNIVERSITY AVF 
FARGO ND 58102 


DALE F. WILLIAMS 
35912 CIRCLE MTN DR 
DAVENPORT IW 59034 


MICRAEL H. HANSEN 
2485 KARAS CT 
SIMI VALLEY CA 93065 
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All of the above factory assembled 
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North Star’s Advantage Computer 3,999.00 3,199 


Subject to Available Quantities Prices Quoted Include Cash Discounts. 
Shipping & Insurance Extra. 


‘ We carry all major lines such as 
$.D. Systems, Cromemco, Ithaca Intersystems, North Star, 
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SIO-4A BOARD 
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4 Serial RS - 232 I/O Ports for the IEEE S - 100 Bus. 
Current Loops on 2 ports. 4 Asynchronus UARTs. Status 
handshake for fast printers. Baud rates from 4.7 Baud 
to 38.4K. Crystal time base. 


$249.50 Assembled and tested. 


Brand New! PSIO BOARD 


All the features of the SIO - 4A on 2 serials plus 2 parallel 
ports. Full handshake. Card edge connectors (Prewired 
connector cable RS - 232 or solder tabs) RS - 232 RTS 
and CTS signals. Board may be strapped for any pin - 
out. serial & parallel addressed independentally. 
$249.50 Assembled and tested. 
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Interfacing PL/I-80 with Assembly 


Language Programs 
by Mark M. Zeiger 


High level languages were invented to make the job of 
programming easier and faster. But as the saying goes—‘‘If 
it’s good, it’s fattening,” and thus with this ease of 
programming comes a certain loss in computer capability. 
The most obvious degradations are an increase in program 
size and usually a slower execution speed. The programmer 
also loses control over, or may not be able to make use of, 
certain machine functions. Some of the high level languages 
have tried to alleviate the latter problem; most Basics 
have “PEEK,” “POKE,” “INP,” and “OUT” functions and 
statements. But most of the languages available under 
CP/M do not have the built-in capabilities for handling 
the primitive chores that the processor must sometimes 
perform. It is therefore necessary to write machine language 
routines to do these jobs and then to link them to the 
program written in the high level language. | would like to 
present some examples showing how | have done this 
with Digital Research's PL/I-80. 

| have been using PL/I-80 for about a year, and like it 
better than most other high level languages. It has most 
of the structure of Pascal, and the I/O and print formatting 
is infinitely better. And believe it or not, the documentation 
that Digital Research supplies with PL/I-80 (the Link-80 
manual in particular) is first-rate. I've heard complaints 
that you have to constantly re-read the manuals before 
understanding them, but | have never seen any computer 
software documentation where this is not true. Digital 
Research supplies all the utilities and information needed 
to link assembly language modules with PL/I-80 programs, 
and also supply a well-documented library of routines 
that will allow you to call upon the BDOS functions from a 
PL/I-80 program. 

The routines which | have written allow PL/I-80 programs 
to perform some low level computer functions. | am able 
to access a clock-calendar board, input and output to and 
from |/O ports, address the cursor on a terminal, and 
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perform certain console functions at a lower level than 
provided for in PL/I-80. 

The key to interfacing external routines to any high 
level language is to understand how parameters are passed 
to a routine, and how results are returned to the calling 
program. When the PL/I-80 program calls any external 
routine, it enters the routine with the HL register pair 
containing the address of the first of a list of two byte 
addresses in contiguous locations. This second group of 
addresses are the memory locations where the parameters 
have been stored by the PL/I-80 program. For example, 
assume the routine “SAMPLE” has been declared as 
follows in a PL/I-80 program: 


DECLARE SAMPLE ENTRY ( FIXED(7), FIXED(15), FIXED(7) ); 


where the “ENTRY’” attribute informs the PL/I-80 compiler 
(and the Linker) that the routine SAMPLE is an external 
routine. SAMPLE might then be called with the following 
instruction: 

CALL SAMPLE ( A, B, C ); 


where A and C were declared as fixed(7) and B as fixed(15). 
When sample is entered, the HL registers might contain 
2000H. At 2000H the following data would be found in 
memory. 

Reg. contents 


address contents address contents 


I 

| 

HL 2000H 2000H 0030 | 3000H A 

2002H 0130 | 3001 BB 

2004H 0330 | 3003H c 
| 


| 
| (2 bytes) 
By examining the contents of address 2000H, you 
would find that the address where the first (single byte) 
variable “A” is stored is 3000H (remember that an 8080/Z- 
80 address is always low byte followed by high byte). The 
address of the next (double byte) variable “B” is stored at 
2002H, so by examining the “word” at 2002H you would 
see that the variable “B” is stored at 3001H, and by 
examining the “word” at 2004H, you would find the third 
parameter to be stored in location 3003H. There are two 
things to note. First, by this scheme the addresses are 
expected to be stored in consecutive words, but the 


MICROSYSTEMS 


NEW! TPM* for TRS-80 Model II 
NEW! System/6 Package 
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2s0 Disk Software 


We have acquired the rights to all TDL software (& hardware). TOL software has long had the reputation of being the best in the 
industry. Computer Design Labs will continue to maintain, evolve and add to this superior line of quality software. 
— Carl Galletti and Roger Amidon, owners. 


Software with Manual/Manual Alone —————— 


All of the software below is available on any of the 
following media for operation with a Z80 CPU using 
the CP/M* or similar type disk operating system 
(such as our own TPM‘). 


for TRS-80* CP/M (Model | or II) 

for 8” CP/M (soft sectored single density) 
for 51”? CP/M (soft sectored single density) 
for 514” North Star CP/M (single density) 
for 51%”? North Star CP/M (double density) 


BASIC I 

A powerful and fast Z80 Basic interpreter with EDIT, 
RENUMBER, TRACE, PRINT USING, assembly language 
subroutine CALL, LOADGO for “chaining”, GOPY to 
move text, EXCHANGE, KILL, LINE INPUT, error inter- 
cept, sequential file handling in both ASCII and binary 
formats, and much, much more. It runs ina little over 12 
K. An excellent choice for games since the precision 
was limited to 7 digits in order to make it one of the 
fastest around. $49.95/$15. 


BASIC ll 
Basic | but with 12 digit precision to make its power 
available to the business world with only a slight sacrifice 
in speed. Still runs faster than most other Basics (even 
those with much fess precision). $99.95/$15. 


BUSINESS BASIC 

The most powerful Basic for business applications. It 
adds to Basic II with random or sequential disk files in 
either fixed or variable record lengths, simultaneous 
access to multiple disk files; PRIVACY command to 
prohibit user access to source code, global editing, 
added math functions, and disk file maintenance capa- 
bility without leaving Basic (list, rename, or delete). 
$179.95/$25. 


ZEDIT 
A character oriented text editor with 26 commands 
and"macro” capability for stringing multiple commands 
together. Included are a complete array of character 
move, add, delete, and display function. $49.95./$15. 


ZTEL 

Z80 Text Editing Language - Not just a text editor. 
Actually a language which allows you to edit text and 
also write, save, and recall programs which manipulate 
text. Commands include conditional branching, subrou- 
tine calls, iteration, block move, expression evaluation, 
and much more. Contains 36 value registers and 10 text 
registers. Be creative! Manipulate text with commands 
you write using Ztel. $79.95/$25. 


TOP 
A Z80 Text Output Processor which will do text 
formatting for manuals, documents, and other word 
processing jobs. Works with any text editor. Does 
justification, page numbering and headings, spacing, 
centering, and much more! $79.95/$25. 


MACRO I 

A macro assembler which will generate relocateable 
or absolute code for the 8080 or Z80 using standard 
Intel mnemonics plus TDL/Z80 extensions. Functions 
include 14 conditionals, 16 listing controls, 54 pseudo- 
ops, 11 arithmetic/logical operations, local and global 
symbols, chaining files, linking capability with optional 
linker, and recursive/reiterative macros. This assembler 
is So powerful you'll think it is doing all the work for you. It 
actually makes assembly language programming much 
less of an effort and more creative. $79.95/$20. 


MACRO II 
Expands upon Macro I's linking capability (which is 
useful but somewhat limited) thereby being able to take 
full advantage of the optional Linker. Also a time and 
date function has been added and the listing capability 
improved. $99.95/$25. 


LINKER 

How many times have you written the same subroutine 
in each new program? Top notch professional pro- 
grammers compile a library of these subroutines and 
use a Linker to tie them together at assembly time. 
Development time is thus drastically reduced and 
becomes comparable to writing ina high level language 
but with all the speed of assembly language. So, get the 
new CDL Linker and start writing programs ina fraction 
of the time it took before. Linker is compatible with 
Macro! & Il as well as TDL/Xitan assemblers version 2.0 
or later. $79.95/$20. 


DEBUG | 

Many programmers give up on writing in assembly 
language even though they know their programs would 
be faster and more powerful. To them assembly language 
seems difficult to understand and follow, as well as 
being a nightmare to debug, Well, not with proper tools 
like Debug |. With Debug | you can easily follow the flow 
of any Z80 or 8080 program. Trace the program one 
step at a time or 10 steps or whatever you like. At each 
step you will be able to see the instruction executed and 
what it did. If desired, modifications can then be made 
before continuing. It’s all under your control. You can 
even skip displaying a subroutine call and up to seven 
breakpoints can be set during execution. Use of Debug! 
can pay foritself many times over by saving you valuable 
debugging time. $79.95/$20. 


DEBUG II 

This is an expanded debugger which has all of the 
features of Debug | plus many more. You can “trap” (i.e. 
trace a program until a set of register, flag, and/or 
memory conditions occur). Also, instructions may be 
entered and executed immediately. This makes it easy 
to learn new instructions by examining registers/memory 
before and after. Anda RADIX function allows changing 
between ASCII, binary, decimal, hex, octal, signed 
decimal, or split octal. All these features and more add 
up to give you a very powerful development tool. Both 
Debug! and !i must run ona Z80 but will debug both Z80 
and 8080 code. $99.95/$20. 


ZAPPLE 
A Z80 executive and debug monitor. Capable of 
search, ASCII put and display, read and write to I/O 
ports, hex math, breakpoint, execute, move, fill, display, 
read and write in Intel or binary format tape, and more! 
on disk $34.95/$15. 


APPLE 
8080 version of Zapple $34.95/$15. 


NEW! TPM now available for TRS-80 Model 


un 
TPM* 

A NEW Z80 disk operation system! This is not CP/M*. 
It's better! You can still run any program which runs with 
CP/M* but unlike CP/M* this operating system was 
written specifically for the Z80* and takes fulladvantage 
of its extra powerful instruction set. In other words its 
not warmed over 8080 code! Available for TRS-80* 
(Model | or Il). Tarbell, Xitan DDDC, SD Sales “VERSA- 
FLOPPY", North Star (SD&DD), and Digital (Micro) 
Systems. $79.95/$25. 


SYSTEM MONITOR BOARD (SMB II) 
Acomplete |/0 board forS-100systems. 2 serial ports, 
2 parallel ports, 1200/2400 baud cassette tape inter- 


face, sockets for 2K of RAM, 3-2708/2716 EPROM's or 


ROM, jump on reset circuitry. Bare board $49.95/$20. 


ROM FOR SMB Il 
2KX8 masked ROM of Zapple monitor. Includes source 
listing $34.95/$15. 


PAYROLL (source code only) 
The Osborne package. Requires C Basic 2. 
5" disks $124.95 (manual not included) 
8" disks $ 99.95 (manual not included) 
Manual $20.00 


ACCOUNTS PAYABLE/RECEIVABLE 
(source code only) 
By Osborne, Requires C Basic 2 
5” disks $124.95 (manual not included) 
8” $99.95 (manual not included) 
Manual $20.00 


GENERAL LEDGER (source code only) 
By Osborne. Requires C Basic 2 
5” disks $99.95 (manual not included) 
8” disks $99.95 (manual not included) 
Manual $20.00 


C BASIC 2 
Required for Osborne software. $99.95/$20. 


SYSTEM/6 
TPM with utilities, Basic | interpreter, Basic E compiler, 
Macro | assembler, Debug | debugger, and ZEDIT text 
editor. 
Above purchased separately costs $339.75 
Special introductory offer. Only $179.75 with coupon!! 


El $160.00 9. 
CN SE 


ORDERING INFORMATION 
Visa, Master Charge and C.O.D. O.K. To order call or 


write with the following information. gamemms - } 

1. Name of Product (e.g. Macro |) oe 

2. Media (e.g. 8” CP/M) t J 

3. Price and method of payment (e.g. C.0.D.) include 
credit card info. if applicable. 

4. Name, Address and Phone number. 

5. ForTPM orders only: Indicate if for TRS 80, Tarbell, 
Xitan DDDC, SD Sales (5%" or 8”). ICOM (5%”" or 
8"), North Star (single or double density) or Digital , 
(Micro) Systems. 

6. N.J. residents add 5% sales tax. 


Manual cost applicable against price of subsequent 
software purchase in any item except for the Osborne 
software. 


For information and tech queries call 
609-599-2146 


For phone orders ONLY call toll free 


1-800-327-9191 
Ext. 676 


(Except Florida) 
OEMS 
Many CDL products are available for licensing to 
OEMs. Write to Carl Galletti with your requirements. 


* Z80 is a trademark of Zilog 

* TRS-80 is a trademark for Radio Shack 

* TPM is a trademark of Computer Design Labs. It is not 
CP/M* 

* CP/M is a trademark of Digital Research 

Prices and specifications subject to change without 

notice. 


DEALER INQUIRIES INVITED. 
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Interfacing PL/I-80, continued... 


variables could be stored in any locations in memory. 
Usually the variables would be stored in consecutive 
locations (especially if they are of similar types), but this 
is not guaranteed by the parameter-passing conventions. 
Second, the parameter-passing conventions in no way 
indicate the number of bytes associated with each value. 
This must be known and accounted for when the pro- 
grammer formulates his routine. 

Upon entering a routine you will usually want to get the 
parameters and do what must be done with them. Below 
is a routine which will put the address of the first parameter 
in the DE register pair when it is initially called (i.e., the 
DE pair would contain 3000H in this example) and then 
likewise the address of the next parameter upon subsequent 
calls to the routine. This routine should be part of every 
assembly language subroutine that is called by a PL/I-80 
program if the routine is to pass two or more parameters. 


GETSPARSADDR: MOV E,M j;move low byte of address to E-reg 
INX H ;point to second byte of address 
MOV D,M j;put high byte of address in D-reg 


INX H ;point to address of next parameter 

SHLD ADDRESSSSAVE 7save address for next call 

RET ;with address of parameter in DE pair 
ADDRESS$SAVE: DS 2 


An entire sequence would be as follows: 


SAMPLE: CALL GETS$PARSADDR 


LDAX D 


;address of lst par in DE 
;lst par in A-reg 


;do what you want with it 
LHLD ADDRESSS$SAVE ;get pointer to addr of next par 
CALL GETSPARSADDR ;pointer to parameter in DE 


;do what you want with this 
two byte number 


LHLD ADDRESSS$SAVE 
CALL GETSPARSADDR 


7get pointer to addr of 3rd par 
;pointer to parameter in DE 


;do what you wish 


RET ;return to PL/I program 


Notice that this routine does not return any values to 
the PL/I-80 program. Many times however, a machine 
language routine must do so. Most of the conventions for 
returning values to the calling program are quite easy to 
implement. The PL/I-80 program expects all one-byte 
values (except single characters) to be returned in the A- 
register. This includes variables declared as fixed(1) to 
fixed(7) and bit(1) to bit(8). All two-byte values—such as 
pointers, label and entry variables, fixed(8) to fixed(15), 
and bit(9) to bit(16)—are returned in the HL register pair 
with the A-register being set equal to the L-register (the 
latter does not seem to be mandatory even though the 
Link-80 manual states it should be done). Character strings, 
fixed decimal numbers, and floating point numbers will 
be discussed later, since returning these types to a PL/I- 
80 program is more complicated. 

Let’s say we want a PL/I-€9 program to call a routine 
that adds two numbers and returns the answer for PL/I- 
80 to output. It’s a ridiculous example since PL/I-80 is 
quite capable of doing its own addition, but it’s an easy 
example to follow. 

The PL/I-80 program: 


ADD: PROC EDURE OPTIONS (MAIN); 
DCL { A, B) FIXED(7), /* the addends */ 
c FIXED(15); /* the result */ 
DCL SUM ENTRY ( FIXED(7), FIXED(7) ) RETURNS (FIXED(15) ); 
A = 12; 
B= 24; 


PUT LIST (C); 


END ADD; 
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The assembly language program (the function SUM) would 
be: 

PUBLIC SUM ;this serves to notify the linker that the 
;label "SUM" will serve as the entry 
;point of an externally called routine. 


SUM: CALL GETSPARSADDR ;defined above 
LDAX D ;put lst one byte parameter in A-reg 
MOV B,A ;and save it in B-reg 


LHLD ADDRESSSSAVE 
CALL GETSPARSADDR 


LDAX D ;put 2nd number in A (1st is in B) 


MOV E,A prepare to add with DAD instruction 

MVL D,U 7since result might be two bytes 

MOV L,B jist number in HL 

MVI H,O 

DAD D 7sum in HL 

MOV A,L ;duplicate LinA 

RET ;return to PL/I with two byte value in H 
GETSPARSADDR: 

MOV E,M 7described above 

INX H 

MOV D,M 

INX H 


SHLD ADDRESSSSAVE 
RET 


ADDRESSSSAVE: DS 2 
END 

To get this program to work, the source of the PL/I-80 
program must be compiled into a REL file using PLI.COM. 
The source of the assembly language file must be 
assembled into a REL file by RMAC.COM (supplied by 
Digital Research with the PL/I-80 package). The two REL 
files are then linked to produce an executable object file 
using LINK.COM. 

Assume that the source file is in the CP/M directory as 
a file called PART1.PLI. This will be compiled into 
PART1.REL by the PL/I compiler. If the assembly language 
program is in the file PART2.ASM, it will be assembled 
into PART2.REL by RMAC. The linker may then be used 
to generate the object file TEST.COM by the following 
command: 


LINK TEST=PART1,PART2[S] 


The [S] tells the linker to use only those modules 
requested by the PL/I-80 program. It is a useless command 
here since PART2.REL has only one module, but many 
times it is possible for a library file to contain several 
subroutines. Unless the [S] switch is used, every module 
in the library will be linked to the PL/I-80 program whether 
the PL/I-80 program requires it or not. 

The example | used was meaningless, but I'm sure the 
reader will realize the power of the above procedure. It is 
only necessary to write a routine and compile it once. A 
number of different routines may be saved in one REL 
file (they may be combined by using Digital Research's 
LIB.COM) and then linked to a program each time they 
are needed. | have made up about ten routines (some in 
assembly language and some in PL/I-80) that | consistently 
use in each program | write. Instead of including them in 
the PL/I-80 source file, | just declare them at the beginning 
of the program and use the linker to get them. | have even 
made up a header file (similar to what is done in “C”) 
which has all the declarations | might need. This is included 
in each source file by using the PL/I-80 command “%include 
‘A:HEADER.PLI’;”. The declared routines will not be linked 
unless they are actually used in the program, sono memory 
or disk space will be wasted by declaring unused 
routines. 

The full PL/I-80 language has provisions for getting the 
date and time from whatever peripheral device is keeping 
track of such things, but there are no commands to do 
this in Subset-G of PL/I-80. (Subset-G is the standard 
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;get address of pointer to next paramete 
yand get address of next parameter in DE 


1/4 Megabyte $1495 


OVERVIEW 


The BSR 64/256 is an 8 bit bank selectable dynamic random ac- 
cess memory card designed to operate in a Z-80 based S-100 com- 
puter system with a CPU clock frequency of up to 4 MHz(A model) 
or 6 MHz(B model). 

Individual 64K banks are selected via the IEEE 696 8 bit address 
us extension. If the host system is not capable of driving the ex- 
tended address bus, one of the BSR 64/256 cards in the system 
may be configured to drive it through an onboard latched output 
port. 


System area is allocated in 4K blocks by writing a system mask 
out to two latched output ports. Another port allows any one of up 
to eight cards to be assigned as the current system master. 
Logically, up to 64 cards may be addressed in a single computer 
system. 

Assembled & Tested Boards 


(4164) 64k 


FDC 4000 


14” Winchester Fixed Disk Controller 


Controls Shugart 4000 & 4100 series drives 
Up to 174 megabytes per controller 

1/0 mapped buffer - no wait states 
Includes MP/M* XIOS & CP/M* CBIOS 


Assembled & tested 


oie. 
BRL Li 


FEATURES 
MAX STORAGE 


BLOCK SELECTION 
SYSTEM AREA 


256k bytes (32 ea. 64k X 1 chips) or 
64k bytes (32 ea. 16k X 1 chips) 

Any combination of 4k blocks in any 
64k bank, software selectable 

Any combination of 4k blocks in low 
order bank of current system master 
card, software selectable 

Any one of up to 8 cards software 
selectable, one card jumper selec- 
table for system power-up or reset 
Logically, up to 64 64k or 256k cards 
Uses or implements IEEE 696 (S-100) 
extended address bus 

4 MHz or 6 MHz with no wait states 


Invisible 
4 Consecutive ports for entire 
system, selectable on any 4 port 
boundary 


SYSTEM MASTERS 


CARDS/SYSTEM 
BANK SELECTION 
CPU SPEED 


REFRESH MODE 
OUTPUT PORTS 


29 Megabyte Disk Subsystem $3840 


The fixed disk subsystem includes a 29 million byte Shugart fixed 
disk (SA 4008), and an assembled and tested S-100 disk controller 
(FDC 4000). Also included is an unfinished rack mountable 
aluminum case, punched and ready for assembly. To complete 
this kit we have included power supply, fan, wiring harness, signal 
cable, and MP/M* XIOS and CP/M* CBIOS. 


(SA 4008) (Assembled Subsystem) 


“Contact Us For More Information” 


GYGTEMS 5232 Manzanita Ave. 


Price subject to change 


Carmichael Ca 95608 (916) 338-5454 


*Trademark of Digital Research 
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which Digital Research used in writing the compiler.) 
Since | have a clock-calendar, | decided | wanted this 
feature, and wrote the routine to return a date-time ASCII 
string to a PL/I-80 program. This is how | became interested 
in writing assembly language routines which could be 
called by a high level language. Since | wrote the first 
TIME routine, | have learned a few neat tricks to make the 
interfacing much easier. However, | am going to include 
my first effort because it is a good way to show how to 
return character strings to PL/I-80 from a machine language 
routine. 

We saw before that it was fairly easy to return a one- 
and two-byte value to PL/I-80 by using the accumulator 
or HL register pair. Returning character strings (even 
one character), decimal values, or floating point values is 
more involved. All three types must be returned on the 
stack with the most significant digit or first character at 
the top of the stack. The routine must also put the length 
of the character string in the A-register, while in the case 
of a fixed decimal number the PL/I-80 program will expect 
sixteen digits (eight bytes) to be returned regardless of 
the actual precision of the number. In the case of a 
floating point number, PL/I-80 expects four bytes containing 
the mantissa and the exponent to be on the stack. The 
Link-80 manual does a good job of describing the format 
of decimal and floating point numbers. The first thing to 
do upon entering a routine which return values on the 
stack is to POP the return address off the stack and save it 
in memory, since you won't be able to use the stack for 
the RET instruction. You may then PUSH the string or 


IEEE-696 S-100 


32K STATIC RAM 

IEEE-696 S-100, 8/16 bit data. 
Extended Addressing 24 bits, 

bank select, 2716 EPROM Mix, 
battery backup option, 

150 nsec CMOS, A&T ............... 


NEC 12” green phosphor 
MONITON esses Bese conte eae aes 


WORDSTAR for CP/M ................. 
SPELLSTAR (requires WORDSTAR) .... 
MAILMERGE (requires WORDSTAR) . 


8” Disk Drive Subsystem 
Cover, power supply, fan 
2 QUME DT-8 for 2.4 MB........... 


15-Slot $100 Mainframe 
Z80 CPU 4Mhz 
2 parallel, 2 serial interfaces 
64K Fast Static RAM ss 
CP/M 2t2 hot. Lp gotas Ce a eed: 


1 YEAR GUARANTEE ON ALL BOARDS 
Outside California CALL TOLL FREE 


800-854-6413 
In California Call 714-497-5777 


COTTON ASSOCIATES 
1278 Glenneyre, Suite 505 
Laguna Beach, California 92651 
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number onto the stack, load the HL registers with the 
return address, which was previously saved, and use a 
PCHL instruction to return to PL/I-80. 

The following clock routine expects a one-bytel[fixed 
(7)] parameter from PL/I-80 and returns a certain string 
depending upon the value of the number passes. Assuming 
that it is October 14, 1981 at 4:51:21 PM, then: 
if 1 is passed, the routine returns "16:51:21" 
if 2 is passed, the routine returns "14-Oct-81" 
if 3 is passed, the routine returns "14-Oct-81bbb16:51:21" 

b = space 
iff any other value is passed, the program will print an 
error message and return to CP/M (this should never happen 


except in the case of sloppy programming, but it's a good 
check). 


In PL/I-80 the TIME routine would be declared as: 


DECLARE TIME ENTRY ( FIXED(7) ) RETURNS ( CHAR(20) VARYING ); 


and it may be implemented by instructions such as: 


PUT SKIP LIST ( TIME(2) ); 
TIME-OF=DAY = TIME(1); 


or maybe 
where TIME~OF=DAY is a char(8) variable, 


The following is a well-commented listing of the 8080 
TIME routine: 


PUBLIC TIME yentry point to routine 
TIME: POP D ;get return address off stack and.. 
XCHG 7-.-save it for later return. Note that... 
SHLD STKSV ;--HL regs must be preserved to find parameters 
XCHG 7get back address of parameter pointer table 
CALL GETSPARSADDR ;defined above 
LDAX D 7get parameter in A-reg and.. 
STA FSAVE 7--save it for later. 


III ORI III IIIT III IIIT III III IO III 


ROUTINE FOR GETTING TIME 


This section depends upon your clock-calendar board. After the 
date and time are calculated, an ASCII string should be con- 
Structed that looks as follows: 


14-Oct-81 bbb16: 51:21 


+ 
ry * 
* * 
* * 
* + 
* * 
* * 
* * 
* * 
s with the HL register pair containing the address of the string * 
se) (the leftmost byte). Naturally the format may be different, but * 
= then the rest of the program will have to be changed slightly * 
* to suit the format. ¥ 
* * 
. * 
* * 
* * 
* * 
* * 
* * 
* ® 


In my particular case, the clock access routines are in my 
BIOS of CP/M 2.2. Thus by using function 38 (which is unused 
by CP/M) I am able to format the date and time in various 
ways (depending upon the value in the E-reg). This procedure 
was developed by Harvey Fishman. 


FORT I OO RT II OIOIIOI OI IOIT TORII TOTTI TTOR ROKR tt a 


zroutine for returning string 


LDA FSAVE ;get back initial parameter 

CPI 1 

JNZ DATEP 7if not 1, then see if 2 or 3 
;It is a 1, therefore an 8 byte string 
;consisting of the time will be returned. 
7Thus 4 pushes are needed (2 bytes/push 
yand the first character pushed will be 
;the last character in the time portion 
;of the string. 

MVI A,4 znumber of pushes 

LXI D,19 ;first char to be pushed is 19 bytes from 


;beginning of string 


JMP DOPUSH 790 and do pushes 


DATEP: 
CPI 2 
JNZ DTP ;if not a 2, then check if 3 
MVI A,5 ;it's a 2. Get date string which is 9 chars 
slong. Therefore 5 pushes. Last char of date 
7string is located 8 chars from beginning of 
LXI D,8& 7String 


JMP DOPUSH 7do the pushes 


DTP: CPI 3 


JNZ ERROR ;this should never happen once the PL/I 
;program is debugged 
MVI A,10 71i1£ 3 get whole string. 20 chars -> 10 pushes 
LXI D,19 ;last char is 19 from beginning 
DOPUSH: 
MOV B,A ;count pushes in B-reg 
ADD A ;double A-reg to get # chars in string 
DAD D ;address first char to be pushed by HL 
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LOOP: 


MOV D,M #put last two characters in DE reg 
DCX H zin order to push them 

MOV E,M 

DCX H ;point to next pair of chars 

PUSH D ;push two characters in DE on stack 
DCR B 7Count pushes 

JNZ LOOP ;do another push 


7String is now on stack and A-reg contains 
snumber of characters to be returned. 


LHLD STKSV ;get return address saved at beginning 
PCHL ;back to PL/I 


ERROR: 


MVI C,9 ;print message and reboot CP/M. This error 


LXI D,ERRMSG ;should never happen in debugged program. 
CALL BDOS 
RST O ; jump to zero for warm boot 
GETSPARSADDR: ;defined above 
RET 
STKSV: DS 2 
FSAVE: DS 1 
BDOS EQU 5 
ERRMSG; DB ‘Illegal TIME parameter$' 


END 

Ashort time after | created the TIME routine, | decided 
| wanted it to be more versatile. The actual output of the 
board is a series of thirteen bytes which represent the 
following: 

1) tens digit of last two digits of year 
2) units digit of last two digits of year 
3) tens digit of month 
4) units digit of month 
5) tens digit of day 
6) units digit of day 
7) day of week 
8) tens digit of hour 
9) units digit of hour 
10) tens digit of minute 
11) units digit of minute 
12) tens digit of second 
13) units digit of second 

Therefore the output for the date used in the last problem 
would be the binary values 81101431651 21in 
contiguous memory locations. 

These bytes could be put into an array of dimension 
thirteen. The Link-80 manual gives no indication as to 
how to pass an entire array of structure between routines, 
but | think that an easy way of doing this is by declaring 
the array as a BASED variable. Then all that would have 
to be done is return the address of the first byte of the 
array in the HL register pair. This same technique would 
work when returning the date-time string in the last 
procedure, and the actual process of returning the data is 


0 = Sunday 


much simpler. To perform the procedure with based 
variables, first declare the following in PL/I-80: 


DECLARE ARRAYPTR POINTER, 
DT (13) FIXED(7) BASED (ARRAYPTR), 
STRINGPTR POINTER, 
TIME-STRING CHAR(20) BASED (STRINGPTR); /* MUST not be 
char VARYING */ 
DECLARE PTIME ENTRY (FIXED(7) ) RETURNS (POINTER); 


If the parameter passed by PL/I-80 is one, it tells the 
clock routine to return the ASCII character string used. If 
the parameter is two, only the binary digits are formatted. 
In each case a pointer to either the first byte of the string 
or to DT(1) is returned. The routine could be called by the 
following types of instructions: 

DCL (MONTH, DAY, YEAR) FIXED(7); 

ARRAYPTR = PTIME(2); 
MONTH = 10*DT(3) + DT (4); 
DAY = 1O*DT(5) + DT(6); 


YEAR = 10*DT(1) + DT(2); 
PUT EDIT ( MONTH, '/', DAY, '/', YEAR ) (F(2), A, F(2), A, F(2) )3 


The output would be 10/14/81. 
If we wanted just the time string returned we could do 
the following: 


STRINGPTR = PTIME(1); 
PUT EDIT (SUBSTR(TIME=STRING), 13,20); 
The output would be 16:51:21. 

While the PL/I-80 program looks much more complicated 
when using pointers, the corresponding assembly language 
routine is simpler to write. This is true because only the 
pointer need be returned in the HL registers, and no 
bytes have to be pushed on the stack. This technique 
could also be used to return fixed decimal and floating 
point numbers. The assembly language routine would 
be: 

PUBLIC PTIME 


PTIME: CALL GETSPARSADDR 
LDAX D 


FOTO IIIT TOI III III III III III ITO IOI OR i tok 


Machine dependent routine to get date and time, and: 
put in contiguous bytes if A-reg contains 2 
ze format as an ASCII string if A-reg contains 1 


array or first character in string. It would be a routine 
similar to the one used in the last TIME routine. Harvey's 


* 
* 
* 
* 
* 
* 
* 
* 
z function 38 does it automatically. 
* 


* 
+ 
* 
* 
* 
HL register pair must point towards either first byte of ba! 
* 
* 
* 
* 
* 


FRI TOO IICIIIIOIIUII II IIUIIO IT II II IIOIIIIIIIIOII II II tok 


RET 
GETSPARSADDR: ;defined above 
RET 
ADDRESSSSAVE: DS 2 


END 


Bower-Stewart & AsSSociatesS sorware anp HARDWARE DESIGN 


$GOLD DISK$ CP/M*® Compatible Z-80 Software 


Available for all 8-5" SS-SD IBM format systems including TRS-80®, Northstar, SD Systems. Also available on 5" double density Superbrain® 


Un-can your canned software! 


Z-80 Disassembler Fee! couped up with your 
1 15 a canned software? Our Z-80 Disassembler 
ppd recreates assembly language source files from 
absolute code enabling users to easily tailor 
programs to meet their specific needs. The 
Preconditioner works with the Disassembler to 
decode ASCII. 


Credit cards: Immediate service. free 24 hr phone - we will 


| VISA 
credit invoice Checks. M O.'s: Ten workday hold CA res: Add tax | 


Great looking letters & reports! 


E-Z Text A unique word processor organized 
w around user-created text files, embellished 


ppd_ with simple control commands, which supports 
such ‘BIG GUYS' features as Automatic Foot- 
noting, Table Spacing, Heading, Paging, Left 
& Right Margins, Proportional Spacing and 
MORE, at a ‘LITTLE GUYS’ price tag. 


—— 
(pia State system & controller. Allow time for surface mail 
mad Trademarks Digital Research, Radio Shack. Intertec 


POST OFFICE BOX 1389 HAWTHORNE. CALIFORNIA 90250 213 / 676-5055 


/* calculates time and returns pointer */ 


/* calculates time and returns pointer */ 
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Based variable and pointers may be used in other ways 
to take advantage of some of the conveniences of CP/M. 
In CP/M, programs may be called using the command 
line conventions. Anything typed after the program name 
is put into a buffer starting at location 81H (the number of 


CONSTAT: ;second module 
;returns 0 if key not pressed 
;returns -128 if key pressed 


LHLD 1 jaddr of BIOS jump table 


LXI D,3 ;constat offset 
DAD D ;HL points to constat jump 
PCHL 3go to constat jump. RETurn of bios 


returns to PL/I with status value 
;in A-reg. Constat should return a 


characters typed is put into 80H). To access the string PATESESED SERENA 


typed after calling a program created by the PL/I-80 END 
compiler and linker, use a based character string variable 
whose pointer has the value of 80H. The program would 
be: 


DECLARE PTR POINTER, 
STRING CHAR(127) VARYING BASED (PTR); /* must be VARYING */ 


To use the above routines from PL/I: 


DECLARE CONIN ENTRY RETURNS (CHAR(1) ), 
CONSTAT ENTRY RETURNS (FIXED(7) ), 
LETTER CHAR (1); 
PTR = UNSPEC('0080'B4) /* puts the address 80H into the pointer */ 
/* variable. The UNSPEC function is not */ 
/* a standard PL/I routine. The 80H must */ 
PUT EDIT (STRING) (A); /* be formatted with leading zeros and a/ 
/* the "B4" indicates the number is in RY 
/* HEX. ay 


LETTER = CONIN(); /* function call must have parentheses 
even if no parameters are passed. */ 
PUT EDIT. (LETTER) (A); /* to echo conin character */ 


IF CONSTAT() “= 0 THEN CALL PAUSE; /* will cause pause if any 


The following are some other routines | regularly use 
and have put into the main PL/I-80 library (PLILIB.IRL). 
The following routine addresses a cursor (ADM-3A 
terminal): 
PUBLIC CURSOR 


CURSOR: CALL GETSPARSADDR 
LDAX D ;first parameter is row number 
ADI 20H 7ADM-3A has row offset of 32 
MOV B,A ;Save row number 
CALL GETSPARSADDR ;no need to reload with ADDRESSSSAVE 
7Since HL regs were not touched. 
LDAX D 7get column 


ADI 20H ;offset of 32 also 
MOV C,A ;save column in C-reg 
MVI A,27 ;ASCII escape 
CALL CONOUT 7send to terminal 
MVI A,‘=' 72nd byte of cursor positioning str 
CALL CONOUT 7send it 
MOV A,B 7get row in A-reg 
CALL CONOUT 7send it 
MOV A,C 7get column 
CALL CONOUT 
RET ;back to PL/I 
CONOUT: LHLD 1 ;bios entry point 
LXI D,9 ;offset for conout jump 
DAD D ;address of conout jmp in HL 
PCHL jump to conout jump. Return done 
7from BIOS to instruction just after 
7CALL CONOUT instruction 
GETSPARSADDR: ;described above 
RET 
END 


In PL/I-80 the routine is declared as: 
DCL CURSOR ENTRY ( FIXED(7), FIXED(7) ); 


and called by: 


CALL CURSOR (14,55); 

Direct console input and status checks may be used to 
avoid some of the pitfalls of using PL/I-80 input routines. 
The “GET LIST” or “GET EDIT” routines always echo 
what is type, and will echo control characters in the same 


key is pressed 


PAUSE: PROCEDURE; 
DCL DUMMY CHAR (1); 


DUMMY = CONIN(); /* will wait until key pressed 


no character is echoed of 
END PAUSE; 


The conin routine may only be used to get a single 
character, but | have written a PL/I-80 routine that will 
allow inputting a string of up to 128 characters without 
having the problem of control characters being echoed. 
The routine uses the CONIN procedure. Like an assembly 
language program, an independent PL/I-80 procedure 
may be compiled by PLI.COM into a REL file and then 
inserted into a separate library or the main library supplied 
by Digital Research. In fact, it is easier to write the PL/I- 
80 routine than to write an equivalent assembly language 
routine since PL/I-80 handles all the parameter passing. | 
have included a listing of the procedure (called INPSTR) 
at the end of this article. 

The next two routines allow input and output to ports. 
They are similar to Basic’s INP and OUT commands. In 
order to get values up to 255, a fixed(8) integer must be 
used. Any integer above fixed(7) uses two bytes; in a 
fixed(8) value the high byte contains only the sign bit. 
The sign bit will be intentionally ignored when passed to 
the routine, and made zero before returning to PL/I-80. 
Therefore it will appear that we are always dealing witha 
non-negative integer from 0 to 255. 


PUBLIC INP, OUTP ;could not use "OUT" since the assembler 


zinterpreted it as an instruction 


OUTP: 
CALL GETSPARSADDR ;get address of first byte of a two byte 
yinteger. This is the low byte which 


;contains the number. The high byte 


;contains only the sign bit, so we will 
zignore it. 

LDAX D ;the first parameter is the port number 
;the second is the value to be outputted 


manner as the CP/M command line. Also, a control-C at 


the beginning of a line will cause a warm boot—a disastrous 
STA OUTPNUM 


. . z tch the OUT i i ith t # 
result if you have been entering a great deal of data toa LHLD ADDRESS$SAVE pget byte to output 
" " . : DDR 
file and the file has not been closed. The following routines << ;put it in A-reg 
avoid these problems. OUT DUMMY ;patched by STA instruction above 


OUTPNUM EQU $-1 
PUBLIC CONIN, CONSTAT ;2 possible entry points in RET 
;this module 

INP: CALL GETSPARSADDR get lst (and only) parameter - the port # 


LDAX D ;Port number in A-reg 
STA INPNUM 7patch IN instruction 


;OUTPNUM is 2nd byte of OUT instruction 
;return to PL/I 


CONIN: ;returns char typed without echo. 
#will not echo control chars 


CALL GOTTOBIOS ;jump to BIOS conin routine IN DUMMY 72nd byte patched by STA instruction 
yreturns with input in A-reg INPNUM EQU. 5-2 ; 
. MOV L,A z;two byte numbers returned in HL regs 
POP H 7get returns address to PL/I FS ; 
PUSH PSW ;push conin char onto stack MVI H,O sign bit in i = makesnumber (positive 
INX SP ;increase stack point to account RET ;so that it will be between 0 and 255 
;for flags being pushed on stack 
;Routine taken from LINK-80 manual DUMMY EQu 0 
MVI A,1l ;only one char being returned 
PCHL ;return address to PC - ret to PL/I GETSPARSADDR: idefined before 
GOTOBIOS: : 
LHLD 1 yaddress of BIOS jump table ‘ 
LXI D,6 ;offset for conin jump RET 
DAD D ;HL points to conin jump 
PCHL ;go there- return done from BIOS END 
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To use the INP function in PL/I: 


DCL INP ENTRY (FIXED(8)) RETURNS (FIXED(8)), 
BYTE FIXED(8); /* really uses 9 bits */ 


BYTE INP (6) /* will input from port 6 and put returned 


value in the variable BYTE 


To use the OUTP routine: 


i 4 


DCL OUTP ENTRY (FIXED(8), FIXED(8)), 
(PORTNUM, VALUE) FIXED(8); 
PORTNUM = 255; VALUE = 6; 


CALL OUTP((PORTNUM, VALUE); /* will output 6 to port OFFH */ 


And finally, one simple routine which allows you to end 
a PL/I-80 routine gracefully. | have always disliked the 
message “End of execution” when a PL/I-80 program 
ends, so | wrote the routine STOPPGM. But you must be 
careful when using this routine because it will not close 
files automatically as will the STOP command of PL/I-80. 


PUBLIC STOPPGM 
STOPPGM: RST 0 
END 
and in PL/I: 


DCL STOPPGM ENTRY; 
CALL STOPPGM; 


| hope | have given you some idea of how you can make 
PL/I-80 an even more powerful language by calling upon 
machine language routines. While | have tried to go into 
as much detail as possible, you should read the Link-80 
manual carefully. The examples given there, supplemented 
with the ones in this article, should give you a good idea 
as to how to use the link feature. Be sure to read the 
documentation on LIB.COM to see how to put all the 
external routines you write into one library. And don't be 
afraid to experiment—it’'s the only way to learn. [e<:) 


Listing of INPSTR 


inpstr: procedure (delimiter) returns (char(128) varying); 
/* If 0 is passed to procedure then only C/R is accepted as the 
string terminator. If 1 is passed, then “escape" is accepted 
as terminator as well. Typing an “escape” will cause the routine 
to return with a string of length 1 containing only an “escepe" 
regardless of how many characters were previously entered. 


The procedure is declared in the PL/I program as: 


DECLARE INPSTR ENTRY (FIXED(7)) RETURNS (CHAR(128) VARYING); 


andifput into a library, 
routine which it uses. 


must be placedbeforethe CONIN 


Used in PL/I as: 


STRING INPSTR (0); where STRING is a char(128) varying variable. 


Rf 


%replace true by 'l'b, false by 'O'b; 


declare delimiter fixed(7), 

input-string char(128) varying, 
inputechar char(l), 
conin entry returns (char(1l)); 

input-string = ''; 

do while (true); 
input-char = conin(); 
if delimiter = 1 then 

if input-char = ascii(27) then return (input-char); 

if input-char = ascii(13) then do; 


put skip; 
return (input-string); 


end; /* if input-char = */ 
/* routines for deletion */ 
if (input-char = ascii(8) | input-char = ascii(127) ) & 
length(input-string) > 0 then do; 
input—string = substr(input-string, 1, 
length(input-string) - 1); 
put edit (ascii(8), ' ', ascii(8)) (3a); 
end; /* if input-char = */ 
if input-char >= ' ' & input-char <= ascii(126) then do; 


input-string = input-string || input-char; 
put edit (input—char) (a); 


if input-char wy: 
a7 


end; /* 
end; /* do while (true) 


end inpstr; 


FAST CPIM S-100 systems 
fully integrated from 


G&GENGINEERING 


We specialize in CP/M S-100 Software and Hardware integration. Our engineers are factory trained ex 


2rts in CompuPro* and 


Morrow Designs products. Available packages include CompuPro Disk 1 DMA floppy controller configured with Morrow Designs 


hard disks. CP/M 86 with hard disks. WARP DRIVE and a host of 


terminal and printer configurations 


SAMPLE COMPUPRO BASED CONFIGURATIONS 


Scientific 

HARDWARE 

§ MHZ 8085/8088 Dual Processor CPU 

64K Fast Low Power Static RAM 

Real Time Clock with Battery Back-up, 3 Interval Timers, 
and 4 MHZ 9511 or 9512 Type Math Processor 

3 Serial 1/0 Ports or 2 Serial and 3 Parallel I/O Ports 
Dual Density DMA Disk Controller 

Desk Top or Rack Mount Enclosure with CV Power Supply 
28-inch Shugart Floppy Disk Drives (1.2 Mbytes) Desk 
or Rack Mount 

SOFTWARE 

CPIM 2.2 from Digital Research 

CPIM 86 from Digital Research 

WORDSTAR word processor from MicroPro 

Microsoft FORTRAN with 9511 Math Processor Subroutines 
SUPERCALC*™, electronic spread sheet from Sorcim 
WARRANTY 

All CompuPro components covered under CSC, 2 year 
phone replacement warranty. 

$5995. 


Word Processing 
HARDWARE 
6 MHZ 2-80 CPU 


or Rack Mount 
SOFTWARE 


WARRANTY 


phone replacement warranty. 
$4920. 


Business Applications & 


64K Fast Low Power Static RAM 

2 Serial I/O Ports or 1 Serial and 3 Parallel /O Ports 

Dual Density DMA Disk Controller 

Desk Top or Rack Mount Enclosure with CV Power Supply 
28-inch Shugart Floppy Disk Drives (1.2 Mbytes) Desk 


CPIM 2.2 from Digital Research 

WORDSTAR word processor from MicroPro 
Microsoft BASIC compiler/interpreter 
SUPERCALC, electronic spread sheet from Sorcim 


All CompuPro components covered under CSC, 2 year 


Software Development 

HARDWARE 

6 MHZ 8085/8088 Dual Processor CPU 

128K Fast Low Power Static RAM 

Real Time Clock with Battery Back-up, 3 Interval Timers, 
and 4 MHZ 9511 Type Math Processor 

3 Serial /O Ports or 2 Serial and 3 Parallel /O Ports 
Dual Density DMA Disk Controller 

Desk Top or Rack Mount Enclosure with CV Power Supply 
28-inch Shugart Floppy Disk Drives (1.2 Mbytes) Desk or 
Rack Mount 

SOFTWARE 

CPIM 2.2 & CP/M 86 from Digital Research 

WORDSTAR word processor from MicroPro 

ACT80, ACT86, and TRANS86 from Sorcim 

WARRANTY 

All CompuPro components covered under CSC. 2 year 
phone replacement warranty. 

$6400. 


Additional Options 
HARDWARE 

QUME DT8-doubie sided 8-inch floppy disk drives 

TELEVIDEO and HAZELTINE terminals 

DIABLO, EPSON, PRINTRONIX and TEXAS INSTRUMENTS 
printers 

PMMI modems for telecommunications 
COMPUPRO—complete line of CompuPro hardware including 
Disk 2 hard disk controller 

MORROW DESIGN hard disk drives, 10, 20, and 26 megabytes 
ATTRACTIVE WOODEN CUBE or OAK DESK for rack mount 
equipment 

4 MHZ 9511 type arithmetic processing unit 


SOFTWARE 


MICROSOFT COBAL 


Z80, 6502, 6800, 8086, and 80! 


Other hardware and software 


MICROSOFT FORTRAN with 9511 support routines 


ACCOUNTING and GENERAL BUSINESS applications 
SUPERCALLC financial planning and forecasting 


ACT80 and ACT86—macro ae assemblers for 8080, 8085, 


TRANS&6—converts 6080/8085/Z80 source into 8086/8088 source 
PASCAUMT+ —from MT Microsystems, native code compiler 
dBASE |!—data base manager from Ashton Tate 


All these systems are FAST, and you can run them even 
faster by adding a WARP DRIVE™. WARP DRIVE™ is 
extended address RAM memory configured with CP/M to 
look like a disk drive and to run over 35 times faster than a 
floppy disk drive. 


GSG ENGINEERING 
13708 Doolittle Drive, San Leandro, Ca. 
94577 (415) 895-0798 


also available 


See us at Booth #1538C at the 7th West Coast Computer Faire. 


JAN/FEB 1982 
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Software Product Review 


The PL/I-80 Language 


by Andrew Bender 


A close look at Digital Research’s new PL/I compiler. 


It is difficult to write an extensive review of new software 
without providing the reader with some background 
information. For the casual user of a language this 
information forms a starting point from which more can 
be learned about the features of the language. For others, 
some of the design philosophies may be more easily 
understood. In October of 1963 a few managers of IBM 
and members of its Fortran compiler team met with key 
members of the IBM scientific computer users group 
SHARE to form the Advanced Language Development 
Committee of the SHARE FORTRAN Project. 

The IBM New Product Line, later to become the S/360, 
was to be released with a New Programming Language. 
Hence, the first acronym, NPL. Since NPL conflicted 
with the established abbreviation for the National Physical 
Laboratory in England, it was changed to PL/I. PL/I was 
to incorporate the best features of Fortran, and become 
an extension of Fortran. It did not take the committee 
long to realize that many of the restrictions in the Fortran 
language did not allow for a reasonable extension. As a 
result of this realization and over strong objections, the 
new PL/I language took shape on its own rather than 
being another Fortran. 

In March of 1964 the new PL/I language was presented 
to the SHARE group, and it was both praised for its scope 
and criticized for its complexity. GUIDE, which was to 
business users what SHARE was to scientific users, 
appointed a member to the committee because the 
language was to have commercial appeal as well. The 
document describing the language was presented at the 
meeting, and soon after the language was compared with 
Cobol, Jovial and Fortran. The conclusion was “...NPLisa 
very strong and powerful language...” In fact, considering 


Andrew Bender, Neurological Services, Inc., 336 Center Ave., West- 
wood, NJ 07675. 
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the fact that the language was designed over fifteen 
years ago, it contains many of those elements deemed 
desirable today: 

¢Production of well-structured programs 

eAbility to prove correctness 

eInteractive language facilities 

eExtensible 

¢Solid theoretical basis. 

Looking critically at the languages recently proposed, 
will we be able to make the same comments in fifteen 
years about these new languages? With this in mind, let 
us look critically at PL/I-80. 

| tested the PL/I-80 package which is designed to run 
on 8080, 8085 or Z-80 based 8-bit systems. The following 
software is included in the package: 

¢PL/I-80 Compiler 

*RMAC Relocating Macro-Assembler 
¢LINK-80 Linkage Editor 

eLIB Run-Time Library 

PL/I-80, as released in version 1.3 by Digital Research, 
consists of five manuals and some addenda and notes, as 
well as two 8” floppy disks in CP/M format. One manual is 
the Digital Research PL/I language specification. This is 
written in specification style—very tough reading. You 
really need a background in PL/I programming to use this 
manual. A more readable manual is the pragmatic PL/I 
“Applications Guide.” This manual teaches by example, 
and is limited by however many examples of such a 
powerful language can be given. This is not to be taken as 
any reflection on Digital Research. They have done more 
than most vendors by taking a pragmatic approach to a 
subject usualy covered only by a specification manual. 

The third manual gives a capsule summary of PL/I and 
also lists the error messages and their meanings. This 
little booklet was evidently not distributed with earlier 
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THE ERRORS OF YOUR WAYZ. 


1651 Third Ave 


Lifeboat 
Hinte 
Postfach 251 


Lifeboat Associates 


New York. N.Y. 10028 
Tel: (212) 860-0300 Minato-ku, Tokyo 105, Japan 
Telex: 640693 (LBSOFT NYK) Tel: 03-437-3901 

TWX; 710-581-2524 


ciates GmbH _Intersoft GmbH 
strasse 


6330 Cham, Switzerland 
Tel: 042-36-8686 
Telex: 865265 (MICO CH) 


Lifeboat 


Lifeboat Associates, the world’s foremost 
source for microcomputer software, proudly 
presents. MicroSpell,™ the first program that not 
only isolates spelling errors in your text, but ac- 
tually corrects them. 

MicroSpell works with your word processor. 
And if you have the best word processing system, 
why settle for anything less than the best spell- 
ing corrector? 

Goes Beyond The Competition 

Other spelling programs function primarily as 
spelling checkers, merely pointing out words 
with suspect spelling. It's left up to you to deter- 
mine the correct spelling and then type it in. 

MicroSpell, the only spelling program that 
knows how to “spell,” corrects the error automat- 
ically. Here’s how it works: MicroSpell will read 
your text, carefully looking for words that might 
be spelled incorrectly. When it comes across a 
word that it's not absolutely sure of, it stops and 
shows you that word, along with its context. Then 
it searches through its own built-in dictionary 
and presents a list of guesses which it “thinks” 
might be correct. All you have to do is press a key 
and the misspelled word is corrected. There is no 


[ Mail coupon to: Lifeboat Associates, 
1651 Third Avenue, New York, New York 10028 
or call (212) 860-0300. 


O Please send me more information on MicroSpell. 
CX Please send me a free Lifeboat catalog. 


Lifeboat Inc. Lifeboat Associates, Ltd 
OK Bldg. 5F PO Box 125 
1-2-8, Shiba-Daimon London WC2H SLU, England 
Tel: 01-836-9028 

3901 Telex: 893709 (LBSOFTG) 
Telex: 2423296 (LBJTYO) 


a Lifeboat Associates, SARL | 
Schlossgartenweg 5 10, Grande Rue Charles de Gaulle 
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smaning W. Germany 92600 Asnieres, France 
Tel: 089-966-44 e|: 1-733-08-04 | Name 
Telex: 5213643 (ISOFD) Telex: 250303 (PUBLIC X PARIS) 
| Company 
Street 
City. 


sociates' 


World's forem tware source 


ONLY MICROSPELL | 
CORRECTS THOSE WAYS. 


LIFEBOAT WORLDWIDE offers you the world’s largest library of software. Contact your nearest dealer or Lifeboat: 


MicroSpell is a trademark of Bob Lucas. 
CP/M is a registered trademark of Digital Research. 
Copyright © 1981, by Lifeboat Associates 


need to bother with your own dictionary, or even 
to type in the change. MicroSpell will do it all for 
you! 

The Most Complete Built-In Dictionary 

MicroSpell uses word stems and suffix strip- 
ping routines, so its dictionary of 25,000 word- 
parts can deliver over 150,000 words to you. And if 
that’s not enough, MicroSpell will let you add 
thousands of additional words, so you can create 
and store specialized dictionaries of technical 
terms, unusual expressions, even acronyms. And 
you can let MicroSpell know just when any of 
these special dictionaries are wanted. 

MicroSpell is highly interactive and designed 
to complement word processing systems that 
create ASCII text using a CP/M” compatible 
operating system. It requires minimum disk stor- 
age capacity of 70K per drive. 

So why settle for a program that merely finds 
your mispellings when you can get the one that 
corrects your misspellings? MicroSpell. It cor- 
rects the errors of your ways. 

MicroSpell is brought to you exclusively and 
supported completely by Lifeboat Associates. 
Call or send us the coupon below. 


Title 


State ———_____ Zip 


PL/I-80 Review, continued... 

versions of the compiler. Some users have had difficulty 
with debugging their programs as a result. The fourth 
manual is the LINK manual which contains the addenda 
to the MAC manual introducing RMAC, a relocating version 
of the MAC macro-assembler. The librarian LIB is also 
documented in this manual. 

The LINK manual contains important information as to 
how the various data items are stored in memory. In 
particular, the manual details the subroutine calls used 
by the various conversion routines and programmed 
operators and the input-output complex. This manual is 
heavy reading and is not recommended for the user who 
desires only to use the language itself without interface 
to other routines either in RMAC or other languages. 
Other sections of the link manual explain the operation of 
the relocatable loader and library manager. File formats 
of the relocatable and IRL images are also detailed in this 
manual. 


| feel that PL/I-80 is the first 
true effort at providing the 
microcomputer community with a 
decent programming language. 


The MAC manual is the last manual in the set. It is the 
standard macro assembler language manual and applica- 
tions guide. In my estimation this is the finest text on 
8080/Z80 macro assemblers. No other manual contains 
such a wide variety of information and depth of coverage 
as does the MAC manual. Thus, you must mentally merge 
the RMAC enhancements in the LINK manual with the 
MAC manual. If you know MAC, you will learn RMAC in 
about one hour, since nothing is changed by adding 
RMAC to MAC. 

In my addenda there was a treatise on the use of the 
“picture” clause in commercial processing and some 
information about the PL/I library license. Hidden in the 
packet was a PL/I language bibliography with extensive 
documentation on each book. | recommend the following 
two texts to all PL/I users: 

Augenstein, M. and Tenenbaum, A. Data Structure 
and PL/I Programming. Englewood Cliffs, NJ: Prentice- 
Hall, 1979. 

Huges, Joan K. PL/I Structured Programming. New 
York: John Wiley and Sons, Inc., 1979. 

While both texts purport to teach structured program- 
ming, | feel that the best structured programming text is: 

Kernighan, B. and Ritchie, D: The C Programming 
Language. Englewood Cliffs, NJ: Prentice-Hall, 1978. 

Notice that the words “Structured Programming” do 
not appear in the title, but that is the essential focus of the 
book. 

Often we measure the quality of acompiler by the code 
that it generates. It should be noted that the compilers of 
today spend a large amount of their time in the generation 
of object code. If the user will tolerate longer compilation 
times, even better code can be produced, mainly because 
the state of the art has advanced out of the dark ages of 
‘fly-by-the-seat-of-your-pants parsing” and “black-magic 
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code generation.” Parsing, which back in the days of the 
first Fortran compilers took up to 40% of the compilation 
time, now accounts for only about 10%. No doubt about it, 
PL/I-80 generates good code. It is efficient. One popular 
Fortran compiler seems to generate a CALL for every 
statement which appears. Not PL/|l-80—it generates a 
high percentage of in-line program, using CALL only in 
those situations demanding a non-available operation on 
the object machine. This results in a more efficient object 
program. | used both Fortran-80 and PL/I to form the 
julian date of 200 calendar dates. The PL/I-80 compiler 
object code was about 30% faster in execution; the resulting 
program was about 20% smaller than the Fortran-80 
program. The question as to what is the best way to 
measure compiler performance is one with many answers, 
because one must always qualify the aspect of performance 
to be measured. 

If one is measuring the object code efficiency in a 
program which will be run hundreds or thousands of 
times, | suppose it is meaningful. If one is measuring the 
ease in programming, | believe it means more than all of 
the other attributes. After all is said and done, today’s 
computers are cheap. Otherwise you and | wouldn't have 
a roomful of silicon chips with the power of the giant 
machines of a dozen years ago. What is expensive now is 
human time. Therefore, the length of time spent pro- 
gramming an application is where the cost is concentrated— 
not in the time it takes for the application to run on the 
machine. If we are playing with our machines as a hobby, 
then the time doesn’t mean very much. However, if we 
are trying to minimize the cost of the machines to maximize 
profits, then we want to extract the best performance 
with the cheapest labor investment. This is where PL/I- 
80 is so valuable. It can turn out good, quality code ina 
hurry. It is easier to write a PL/I program than to write in 
Basic. The structured style of PL/I seems to make the 
program easier to write and debug. 

It should be pointed out that Digital Research's PL/I-80 
implements the new American National Standards (ANS) 
Subset-G language, defined especially for minicomputers. 
It includes all the necessary features of the full PL/I 
standard, while eliminating useless and redundant forms. 

If all of this sounds like a sales pitch for PL/I-80, | 
cannot help it. | feel that PL/I-80 is the first true effort at 
providing the microcomputer community with a decent 
programming language. | do not denegrate the other 
languages which have been made available. Certain lan- 
guages such as Basic helped to spur the revolution of 
personal computers, but an ambitious project such as 
PL/I-80 has opened a new vista of programming. So, if 
my “pitch” for PL/I-80 is wildly enthusiastic, it is for good 
reason. Now, we will be squeezing even more performance 
out of these micros, and we will be taking astep forward. 

To test PL/I-80 | used a 60Kbyte Z-80 system (a minimum 
of 48Kbytes is required) running at 2MHz. The disks 
were Micromation Memorex Drives running with a 
Micromation Doubler and using CP/M 2.2. | used Micro- 
mation’s CBIOS and “c-2” EPROM. All disk operations 
were in double density. Compilations always included a 
storage map and program list. Compile speed ran between 
400 to 500 lines per minute. A program to calculate and 
print the Fibbonaci series using fixed binary (15) declara- 
tions took about 1Kbyte of memory for the object code 
and about 7Kbytes for the run-time subroutines. Calculating 
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8080 CPU 
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AZTEC C COMPILER! 


CO ALL C LANGUAGE FEATURES EXCEPT FLOAT, DOUBLE, AND LONG 
DATATYPES AND BIT FIELDS (See Special Offer at Bottom) 

CO STRICT ADHERENCE TO THE DEFINITION OF C /N “THE C PROGRAMMING 
LANGUAGE" BY KERNIGHAN AND RITCHIE 

0 FAST COMPILATION AND EXECUTION 

CO EXTENSIVE RUN TIME LIBRARY WITH STANDARD 10, STRING FUNCTIONS, 
UTILITY FUNCTIONS, AND CP/M OR HDOS INTERFACES 

CO COMPILER WILL RUN UNDER CP/M or HEATH/ZENITH HDOS — UNIX 
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for,do/while,switch/case, and goto+conditional compilation with #ifdef, 
ifndef telse #endif+ all C operators+declarations of complex datatypes 
+command line arguments (argc,argv) +fopen, printf fclose,open,close,iseek, 
open.close,. . . 

CO ORDER BY PHONE OR MAIL — SPECIFY CP/M OR HDOS,AND DISK FORMAT. 
IF YOU DO NOT HAVE K&R BOOK YOU SHOULD ORDER IT FOR A LANGUAGE 
REFERENCE MANUAL. ADD $3 for shipping to U.S. locations, $5 TO CANADA, 
$10 TO all other locations 

AZTEC C, ASSEMBLER, AND LINKER.............. 
WITH K&R BOOK 
AZTEC C UNIX CROSS COMPILER (PDP 11) 


ORDER NOW—SPECIAL NEW PRODUCT OFFER—SEND NO MONEY 


AZTEC C Il (AZTEC C with float and long support)... .... $195 

WITH K&R BOOK 2 

AZTEC C Il UPGRADE TOAZTECC................. $70 
order now and we will ship UPS COD at our expense on or about 2/82 
TECHNICAL SOFTWARE SYSTEMS 
BOX 55, SHREWSBURY, N.J. 07701 
(201) 780-4004 
N.J. residents add 5% sales tax Call or write for catalog 
AZTEC C is a trademark of MANX Software Systems 
CP/M is a trademark of Digital Research 
UNIX is a trademark of Bell Labs 
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PL/I-80 Review, continued... 


FIBB(15) took 3.5 minutes—not bad considering that the 
calculation was done by means of recursion and dynamic 
storage allocation. 

After the compiler produces the reloctable object code, 
it must be linkage-edited to form a program. During this 
phase, routines from the supplied PL/I-80 library (containing 
over 300 individual routines) and the user library, if 
appropriate, are added to the PL/I-80 program to form an 
absolute module. Unfortunately, the LINK program is 
very slow and takes longer to collect the programs than 
the original compilation. This should get some attention. 
You can provide for some increase in speed once you 
have a PL/I program which will compile by putting your 
commands to compile PL/I and link PL/I in a submit file. 
My file also calls for test execution: 

PLI $1 $SSL 
LINK $l 
$1 
which avoids having to type in the stuff for each call. 

Since the error checking in PL/I-80 is quite compre- 
hensive, you will have little need to use DDT or similar 
programs. PL/I-80 gives an extensive set of compilation 
error messages and execution error messages. You can 
also use the ON condition clause of PL/I to trap certain 
execution time errors. The run-time walk back is somewhat 
difficult to follow, but generally unnecessary since the 
error message and point at which it occurs usually supplies 
enough information to spot the offending statement. To 
debug with DDT you will need to know the internals of 
PL/I-80. You can get that from the LINK manual. 


PL/I-80 represents a valuable addition 
to any serious programmer’s library. 
In keeping with Digital Research’s 
policy of providing quality 
programming tools so that 
programmers can create quality 
software, PL/I-80 is a valuable tool. 


In summary, PL/I-80 represents a radical departure 
from the current languages available for the 8080/Z80 
systems. Digital Research has made a significant contri- 
bution to the industry by bringing out PL/I for use on 
CP/M systems. Previous experience with Digital Research 
suggests that they will continue to provide a high level of 
support for this software in keeping with their reputation 
of reliable support for their customers. In all aspects, 
PL/I-80 represents a valuable addition to any serious 
programmer's library. In keeping with Digital Research's 
policy of providing quality programming tools so that 
programmers can ‘create quality software, PL/I-80 is a 
valuable tool. 

The complete PL/I-80 package is priced at $500 for 
non-commercial users. It may be purchased from Digital 
Research, 801 Lighthouse Ave., Pacific Grove, CA 93950; 
(408)649-3896 or from any of its dealers. @ 
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The Best Boards 
SD Prices Slashed 


SBC-200 


2 or 4 MHz single board computer 


Single User System 


SBC-200, 64K ExpandoRAM II, Versafloppy II, CP/M 2.2 


$995.00 


4 MHz Z-80A CPU, 64K RAM, serial I/O port, 
parallel I/O port, double-density disk controller, 
CP/M 2.2 disk and manuals, system monitor, 
control and diagnostic software. 

-All boards are assembled and tested- 


ExpandoRAM III 
64K to 256K expandable RAM board 
ps _Aoaso ne 


SD Systems has duplicated the famous 
reliability of their ExpandoRAM I and II boards 
in the new ExpandoRAM III, a board capable of 
containing 256K of high speed RAM. Utilizing the 
new 64K x 1 dymanic RAM chips, you can 
configure a memory of 64K, 128K, 192K, or 256K, 
all on one S-100 board. Memory address decoding 
is done by a programmed bipolar ROM so that the 
memory map may be dip-switch configured to 
work with either COSMOS/MPM-type systems or 
with OASIS-type systems. 

Extensive application notes concerning how to 
operate the ExpandoRAM III with Cromemco, 
Intersystems, and other popular 4 MHz Z-80 
systems are contained in the manual. 


MEM-65064A 64K A&T.......... $495.00 
MEM-65128A 128KA&T......... $639.95 
MEM-65192A 192KA&T......... $769.95 
MEM-65256A 256KA&T......... $879.95 


Versafloppy II 


Double density controller with CP/M 2.2 


e S-100 bus compatible ¢ IBM 3740 compatible 
soft sectored format ¢ Controls single and double- 
sided drives, single or double density, 5'4” and 8” 
drives in any combination of four simultaneously 
e Drive select and side select circuitry ¢ Analog 
phase-locked loop data seperator ¢ Vectored 
interrupt operation optional ¢ CP/M 2.2 disk and 
manual set included e Control/diagnostic 
software PROM included 

The Versafloppy II is faster, more stable and more 
tolerant of bit shift and “jitter” than most 
controllers. CP/M 2.2 and all necessary control 
and diagnostic software are included. 


IOD-1160A A & T with CP/M 2.2 .. 


$370.00 


I 1 i 

e S-100 bus compatible ¢ Powerful 4MHz Z-80A 
CPU e Synchronous/asynchronous serial I/O 
port with RS-232 interface and software 
programmable baud rates up to 9600 baud e 
Parallel input and parallel output port e¢ Four 
channel counter/timer ¢ Four maskable, vectored 
interrupt inputs and a non-maskable interrupt ¢ 
1K of on-board RAM e Up to 32K of on-board 
ROM e System monitor PROM included 

The SBC-200 is an excellent CPU board to basea 
microcomputer system around. With on-board 
RAM, ROM, and I/O, the SBC-200 allows you to 
build a powerful three-board system that has the 
same features found in most five-board 
microcomputers. The SBC-200 is compatible with 
both single-user and multi-user systems. 


CPU-30200A A & T with monitor . $299.95 


ExpandoRAM II 


16K to 64K expandable RAM board 


it, 
” 


e S-100 bus compatible ¢ Up to 4MHz operation ¢ 
Expandable from 16K to 64K e Uses 16 x 1 4116 
memory chips ¢ Page mode operation allows up to 
8 memory boards on the bus @ Phantom output 
disable @ Invisible on-board refresh 

The ExpandoRAM II is compatible with most S- 
100 CPUs. When other SD System’ series II 
boards are combined with the ExpandoRAM II, 
they create a microcomputer system with 
exceptional capabilities and features. 


MEM-16630A 16K A & T 
MEM-32631A 32K A&T 
MEM-48632A 48K A & T 
MEM-64633A 64K A & T 


COSMOS 


Multi-user operating system 


e Multi-user disk operating system @ Allows up to 
8 users to run independent jobs concurrently ¢ 
Each user has a seperate file directory 

COMOS supports all the file structures of CP/M 
2.2, and is compatible at the applications program 
level with CP/M 2.2, so that most programs 
written to run under CP/M 2.2 or SDOS will also 
run under COSMOS. 


$325.00 


$365.00 
$385.00 


ry 


Multi-User System 


SBC-200, 256K ExpandoRAM III, Versafloppy II, MPC-4 
COSMOS Multi-User Operating System, C BASIC II 


$1995.00 


Two Z-80A CPUs (4 MHz), 256K RAM, 5serial I/O 
ports with independently programmable baud 
rates and vectored interrupts, parallel input port, 
parallel output port, 8 counter/timer channels, 
real time clock, single and double sided/single or 
double density disk controller for 5'4” and 8” 
drives, up to 36K of on-board ROM, CP/M 2.2 
compatible COSMOS interrupt driven multi-user 
disk operating system, allows up to 8 users to run 
independent jobs concurrently, C BASIC II, 
control and diagnostic software in PROM 
included. 
-All boards are assembled and tested- 
————————EE Eee 


MPC-4 


Intelligent communications interface 


e Four buffered serial I/O ports ¢ On-board Z- 
80A processor @ Four CTC channels ¢ 
Independently programmable baud rates e¢ 
Vectored interrupt capability ¢ Up to 4K of on- 
board PROM e Up to 2K of on-board RAM e On- 
board firmware 

This is not just another four-port serial 
I/O board! The on-board processor and firmware 
provide sufficient intelligence to allow the MPC-4 
to handle time consuming I/O tasks, rather than 
loading down your CPU. To increase overall 
efficiency, each serial channel has an 80 character 
input buffer and a 128 character output buffer. 
The on-board firmware can be modified to make 
the board SDLC or BISYNC compatible. In 
combination with SD’s COSMOS operating 
system (which is included with the MPC-4), this 
board makes a perfect building block for a multi- 
user system. 


IOI-1504A A & Twith COSMOS .. $495.00 


(ao ee a 
$345.00 i Place Orders Toll Free 


Continental U.S. Inside California 
800-421-5500 800-262-1710 
For Technical Inquires or Customer Service call: 


213-973-7707 
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4901 W. Rosecrans, Hawthorne, Ca 90250 
TERMS of SALE: Cash, checks, credit cards, or 
Purchase Orders from qualified firms and institutions. 
Minimum Order $15.00. California residents add 6% 
tax. Minimum shipping & handling charge $3.00. 
Pricing & availibility subject to change 


SFC-55009039F COSMOS on 8" disk $395.00 (a Ga aS Ee Ge Es i ee mets | 


BETTER THAN EPSON! - Okidata 


Microline 82A 80/132 column, 120 CPS, 9 x 9 dot 
matrix, friction feed, pin feed, adjustable tractor feed 
(removable), handles 4 part forms up to 9.5" wide, rear & 
bottom feed, paper tear bar, 100% duty cycle/200,000,000 
character print head, bi-directional/logic seeking, both 
serial & parallel interfaces included, front panel switch & 
program control of 10 different form lengths, uses 
inexpensive spool type ribbons, double width & condensed 
characters, true lower case descenders & graphics 


PRM-43082 with FREE tractor .... $539.95 


Microline 83A_ 132/232 column, 120 CPS, handles 
forms up to 15" wide, plus all the features of the 82A. 
PRM-43083 with FREE tractor .... $749.95 


PRA-27081A Apple card ............ $39.95 
PRA-27082A Apple cable ............ $19.95 
PRA-27087A TRS-80 cable .......... $24.95 
PRA-43080 Extra ribbons pkg. of 2 ... $9.95 


INEXPENSIVE PRINTERS - Epson 
MX-70 80 column, 80 CPS, 5 x 7 dot matrix, adjustable 
tractor feed, & graphics 
PRM-27070 List $459 $399.95 


MX-80 80 column, 80 CPS, bi-directional/logic seeking 
printing, 9 x 9 dot matrix, adjustable tractor feed, & 64 
§ graphics characters 

PRM-27080 List $645 $469.95 


MX-80FT same as MX-80 with friction feed added. 
PRM-27082 List $745 $559.95 


MX-100 132 column, correspondence quality, graphics, 
up to 15" paper, friction feed & adjustable tractor feed, 9x9 
dot matrix, 80 CPS. 

PRM-27100 List $945 


$759.95 


PRA-27084 Serial interface .......... $69.95 
PRA-27088 Serial intf & 2K buffer .. $144.95 
PRA-27081 Apple card .............. $74.95 
PRA-27082 Apple cable ............. $22.95 
PRA-27086 JEEE 488 card .......... $52.95 
PRA-27087 TRS-80 cable ............ $32.95 
PRA-27085 Graftrax I] ..........000 $95.00 
PRA-27083 Extra ribbon ............ $14.95 


NEC 7700 & 3500 


NEC Spinwriter w/Intelligent Controller 

Standard serial, Centronics parallel, and current 
loop interfaces @ Selectable baud rates 50 to 19,200 

e Automatic bidirectional printing ¢ Logic 
seeking @ 650 character buffer with optional 16K 
buffer e¢ 55 characters per second print speed ¢ 
Comes with vertical forms tractor, ribbon, thimble 


and cable e¢ Diablo compatible software ¢ 
Available with or without optional front panel 
PRD-55511 1K no front panel .... $2795.00 
PRD-55512 16K no front panel .. $2895.00 
PRD-55515 1K w/front panel ..... $2995.00 
PRD-55516 16K w/front panel ... $3095.00 


Intersell NEC 3500Q 
New from NEC - the 3500 series Spinwriters. 
Incorporates all the features and reliability of the 
5500 and 7700 series Spinwriters into an 
inexpensive 30 CPS letter quality printer with an 
optional bi-directional tractor assembly. 


PRD-55351 3500Q 1K ............ $1995.00 
PRD-55352 3500Q 16K ........... $2095.00 
PRA-55100 Deluxe tractor option .. $300.00 


JAA. TD E:; 


Computer Products 


Accessories for Apple 


16K MEMORY UPGRADE 
Add 16K of RAM to your TRS-80, Apple, or Exidy in just 
minutes. We've sold thousands of these 16K RAM 
upgrades which include the appropriate memory chips (as 
specified by the manufacturer), all necessary jumper 
blocks, fool-proof instructions, and our 1 year guarantee. 


MEX-16100K TRS-80 kit ............ $25.00 
MEX-16101K Apple kit .............. $25.00 
MEX-16102K Exidy kit ............. 2 


16K RAM CARD - for Apple II 
Expand your Apple to 64K, 1 year warranty 
$129.95 


Z-80* CARD for APPLE 
Two computers in one, Z-80 & 6502, more than doubles the 
power & potential of your Apple, includes Z-80* CPU card, 
CP/M 2.2, & BASIC-80 


CPX-30800A A&T $299.95 


8” DISK CONTROLLER 
New from Vista Computer, single or double sided, single or 
double density, compatible with DOS 3.2/3.3, Pascal, & CPM 
2.2, Shugart & Qume compatible 

IOD-2700A A&T 


$499.95 


2 MEGABYTES for Apple II 


Complete package includes: Two 8" double-density disk 
drives, Vista double-density 8" disk controller, cabinet, power 
supply, & cables, DOS 3.2/3.3, CP/M 2.2, & Pascal 
compatible. 

1 MegaByte Package (Kit) 
1 MegaByte Package (A & T) 
2 MegaByte Package (Kit) 
2 MegaByte Package (A & T) 


$1495.00 
$1695.00 
$1795.00 


CPS MULTICARD - Mtn. Computer 
Three cards in one! Real time clock/ calendar, serial interface, 
& parallel interface - all on one card. 

1OX-2300A A&T $199.95 


AIO, ASIO, APIO - S.S.M. 

Parallel & serial interface for your Apple (see Byte pg 11) 
IOI-2050K Par & Ser kit 
IOI-2050A Par & SerA&T 
IOI-2052K Serial kit 


IOI-2052A Serial A&T ............. $99.95 
IOI-2054K Parallel kit ............... $69.95 
IOI-2054A Parallel A&T ........... R 


A488 - S.S.M. 
IEEE 488 controller, uses simple basic commands, 
includes firmware and cable, 1 year guarantee, (see April 
Byte pg 11) 

IOX-7488A A&T 


Modems 
CAT MODEMS - Novation 


CAT 300 baud, acoustic, answer/orginate 


IOM-5200A List $189.95 $149.95 


D-CAT 300 baud direct connect, answer/orginate 
IOM-5201A List $199.95 $169.95 


AUTO-CAT Auto answer/orginate, direct connect 
IOM-5230A List $299.95 $239.95 


Apple-CAT - Novation 
Software selectable 1200 or 300 baud, direct connect, auto- 
answer auto-dial, auxiliary 3-wire RS232C serial port for 


printer, 
$325.00 


SMARTMODEM - Hayes 
Sophisticated direct-connect auto-answer/auto-dial modem, 
touch-tone or pulse dialing, RS-232C interface, programmable 
IOM-5400A Smartmodem $269.95 


Single Board Computer 


it delat fi 


Rockwell 

6502 computer with alphanumeric display, printer, & 
keyboard, and complete instructional manuals 
CPK-50165 1K AIM 
CPK-50465 4K AIM 
SFK-74600008E 8K BASIC ROM .. 
SFK-64600004E 4K assembler ROM $43.95 


AIM-65 - 


PSX-030A Power supply $64.95 
ENX-000002 Enclosure 
4K AIM, 8K BASIC, power supply, & enclosure 


Special package price $649.95 


Z-80 STARTER KIT - SD Systems 
Complete Z80 microcomputer with RAM, ROM, I/O, 
keyboard, display, kludge area, manual, & workbook 
CPS-30100K KIT $299.95 
CPS-30100A A &T $469.95 


SYM-1 - Synertek Systems 
Single board computer with 1K of RAM, 4K of ROM, key-pad, 
LED display, 20ma & cassette interface on board. 


CPK-50020A A & T $249.95 


Video Monitors 


HI-RES 12” GREEN - Zenith 


15 MHz bandwidth, 700 lines/inch, P31 green phosphor, 
switchable 40 or 80 columns, small, light-weight & portable. 
VDM-201201 List price $150.00 .... $118.95 


Leedex / Amdek 
Reasonably priced video monitors 
VDM-801210 Video 100 12" BEW .. $139.95 
VDM-801230 Video 100-80 12” BE W $179.95 
VDM-801250 12” Green Phospor .... $169.95 
VDC-801310 13" Color I $379.95 


12” COLOR MONITOR - NEC 


Hi-res monitor with audio & sculptured case 


VDC-651212 Color Monitor $479.95 
12” GREEN SCREEN - NEC 


20 MHz, P31 phosphor video monitor with audio, 
exceptionally high resolution - A fantastic monitor at a 
very reasonable price 


VDM-651200 Special Sale Price 


Video Terminals 
AMBER SCREEN - Volker Craig 


Detachable keyboard, amber on black display, 7 x 9 dot 
matrix, 10 program function keys, 14 key numeric pad, 12” 
non-glare screen, 50 to 19,200 baud, direct cursor control, 
auxiliary bi-directional serial port 


VDT-351200 List $795.00 $645.00 


VIEWPIONT - ADDS 
Detachable keyboard, serial RS232C interface, baud rates 
from 110 to 19,200, auxiliary serial output port, 24 x 80 display, 
VDT-501210 Sale Priced $639.95 


TELEVIDEO 950 
VDT-901250 List $1195.00 


DIALOGUE 80 - Ampex 
VDT-230080 List $1195.00 


$995.00 


$895.00 
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S-100 CPU Boards S-100 RAM Boards 


THE BIG Z* - Jade 
2 or 4 MHz switchable Z80* CPU with serial I/O, 
accomodates 2708, 2716, or 2732 EPROM, baud rates from 
75 to 9600 


MEMORY BANK - Jade 
4 MHz, S-100, bank selectable, expandable from 16K to 64K 


MEM-99730B Bare Board $49.95 
MEM-99730K Kit no RAM $199.95 
MEM-32731K 32K Kit $239.95 
MEM-64733K 64K Kit $279.95 
Assembled & Tested add $50.00 


2810 Z-80* CPU - Cal Comp Sys 
2/4 MHz Z-80A* CPU with KS-232C serial I/O port and on- 
board MOSS 2.2 monitor PROM, front panel compatible. 
CPU-30400A A&T 


64K RAM - Calif Computer Sys 
4 MHz bank port bank byte selectable, extended 
addressing, 16K bank selectable, PHANTOM line allows 
memory overlay, 8080 / Z-80 / front panel compatible. 


MEM-64565A A & T 


CB-2 Z-80 CPU - S.S.M. 
2 or 4 MHz Z-80 CPU board with provision for up to 8K of 
ROM or 4K of RAM on board, extended addressing, IEEE 
S-100, front panel compatible. 
CPU-S0S00K: Kit nccvcsesiwwewcaews 
CPU-30300A A & T 


64K STATIC RAM - Mem Merchant 
64K static S-100 RAM card, 4-16K banks, up to 8MHz 
MEM-64400A A & T 


$239.95 
$299.95 


S-100 PROM Boards 


PROM-100 - SD Systems 
2708, 2716, 2732 EPROM programmer w/software 
MEM-99520K Kit $189.95 
MEM-99520A A&T............... 


PB-1 - S.S.M. 
2708, 2716 EPROM board with built-in programmer 
MEM-99510K Kit $154.95 
MEM-99510A A & T $219.95 


32K STATIC RAM - Jade 
2 or 4 MHz expandable static RAM board uses 2114L's 
MEM-16151K 16K 4 MHz kit $169.95 
MEM-32151K 32K 4 MHz kit $299.95 
Assembled & tested add $50.00 


16K STATIC RAM - Mem Merchant 
4 MHz I6K static RAM board, IEEE S-100, bank selectable, 
Phantom capability, addressable in 4K blocks, "disable-able” 
in 1K segments, extended addressing, low power 


MEM-16171A A&T 


$164.95 


S-100 Disk Controllers 


DOUBLE-D - Jade 
Double density controller with the inside track, on-board Z- 
80A*, printer port, IEEE S-100, can function on an 
interrupt driven buss 
IOD-1200K Kit 
IOD-1200A A&T 
IOD-1200B Bare board 


DOUBLE DENSITY - Cal Comp Sys 


5%" and 8" disk controller, single or double density, with 
on-board boot loader ROM, and free CP/M 2.2* and 


manual set. 


IOD-1300A A&T 


EPROM BOARD - Jade 
16K or 32K uses 2708's or 2716's, 1K boundary 
MEM-16230K Kit $79.95 
$119.95 


S-100 Video Boards 


VB-3 - S.S.M. 
80 characters x 24 lines expandable to 80 x 48 for a full page 
of text, upper & lower case, 256 user defined symbols, 160 x 
192 graphics matrix, memory mapped, has key board 
input. 

IOV-1095K 4 MHz kit 
IOV-1095A 4MHzA &T 
IOV-1096K 80 x 48 upgrade 


$349.95 
$439.95 
$39.95 


$374.95 


S-100 I/O Boards 


S.P.I.C. - Jade 
Our new 1/O card with 2 SIO's, 4 CTC's, and 1 PIO 
IOI-1045K 2 CT7C's, 1 SIO, 1 PIO .. $179.95 
IOI-1045A A &T $239.95 
IOI-1046K 4CTC's, 2SIO's,1 PIO $219.95 
IOI-1046A A&T 
IOI-1045B Bare board w/ manual ... 


VDB-8024 - SD Systems 
80 x 24 I/O mapped video board with keyboard I/O, and 
on-board Z-80A*. 


IOV-1020A A&T 


$459.95 


VIDEO BOARD - S.S.M. 
64 characters x 16 lines, 128 x 48 matrix for graphics, full 
upper/lower case ASCII character set, numbers, symbols, 
and greek letters, normal/reverse/blinking video, S-100. 
IOV-1051K Kit $149.95 
IOV-1051A A&T $219.95 
IOV-1051B Bare board .............. 


S-100 Motherboards 


ISO-BUS - Jade 


Silent, simple, and on sale - a better motherboard 
6 Slot (5'4" x 8%") 


1/0-4 - S.S.M. 

2 serial I/O ports plus 2 parallel I/O ports 
IOI-1010K Kit $179.95 
IOI-1010A A&T $249.95 
IOI-1010B Bare board 


S-100 Mainframes 


MBS-061B Bare board ............... $19.95 MAINFRAME - Cal Comp Sys 
MBS-OG1K Kit ........cccccccceueeecs $39.95 12 slot S-100 mainframe with 20 amp power supply 
MBS-061A AGT ......cccccccccucees $49.95 | ENC-112105 Kit ...............64. $329.95 
12 Slot (9%" x 8%") ENC-112106 A&T ............... $399.95 
MBS-121B Bare board ............... $29.95 
MBS-121K RIG saneavewwassnvesnesoes $69.95 DISK MAINFRAME - N.P.C. 
MBS-121A A ET ...... cece eee $89.95 Holds 2.8" drives and a 12 slot S-100 system. Attractive 
18 Slot (14'" x 85") metal cabinet with 12 slot motherboard & card cage, power 
MBS-181B Bare board ............... $49.95 supply. dual fans, lighted switch, and other professional 
MBS-181K Kit .....................-. $99.95 | features hs aos - 
MBS-18VA A. & 7" <cosencnseeeesstnes $139.95 | ENS-112325 with 25 ampp.s. ..... $699.95 


Disk Drives 


Handsome metal cabinet with proportionally 
balanced air flow system ¢ Rugged dual drive 
power supply @ Power cable kit ¢ Power switch, 
line cord, fuse holder, cooling fan ¢ Never-Mar 
rubber feet ¢ All necessary hardware to mount 2- 
8" disk drives, power supply, and fan @ Does not 
include signal cable 


Dual 8" Subassembly Cabinet 


END-000420 Bare cabinet ........... $59.95 
END-000421 Cabinet kit .......... $225.00 
END-000481 AGT 7.222206 0000055 $359.95 


8” Disk Drive Subsystems 
Single Sided, Double Density 
END-000423 Kit w/2 FD100-8Ds . $924.95 
END-000424 A & T w/2 FD100-8Ds $1124.95 
END-000433 Kit w/2 SA-801Rs $999.95 
END-000434 A & Tw/2 SA-801Rs $1195.00 


8" Disk Drive Subsystems 
Double Sided, Double Density 


END-000426 Kit w/2 DT-8s ...... $1224.95 
END-000427 A & Tw/2 DT-8s ... $1424.95 
END-000436 Kit w/2 SA-851Rs_ .. $1495.00 
END-000437 A & T w/2 SA-851Rs $1695.00 


QUME DT-8 


8” Double-Sided, Double-Density Disk Drive 
1 Drive ... $524.95 each 
2 Drives $499.95 each 
10 Drives $479.95 each 


Jade Part Number MSF-750080 


Shugart 801R 


8” Single-Sided, Double-Density Disk Drive 
1 Drive ... $394.95 each 
2 Drives $389.95 each 


Jade Part Number MSF-10801R 


SIEMENS 8” 


8” Single-Sided, Double-Density Disk Drive 


1 Drive $384.95 each 
2 Drives $349.95 each 
10 Drives $324.95 each 


Jade Part Number MSF-201120 


MPI B-51 


5'4” Single-Sided, Double-Density Disk Drive 


1 Drive $234.95 each 
2 Drives $224.95 each 
10 Drives $219.95 each 


Jade Part Number MSM-155100 
END-000213 Case & power supply 


An Introduction to the 


C Programming Language (Part II) 


by David A. Gewirtz 


In this, the second in a two-part series, the author evaluates 
C compiler implementations. 


There are a number of things to consider when comparing 
different implementations of a single language. Usually 
the most efficient way to evaluate what is best for a 
particular purpose is to look at all of them together. 

In any computer-related operation, speed considerations 
are important, so one thing to check is the execution 
speed of programs. Additionally, to anyone who will be 
using the compiler often, speed of compilation is very 
important. No one likes waiting hours to see the results of 
the latest program modification. 

Since implementations of a language vary, it is very 
important to see how close an implementation is to the 
“standard” language specification. It could be a near 
match, but leave out some important features. An analogy 
can be seen in the S-100 bus. A memory board may be 
“close” to the standard, but it wouldn't be of much use if 
the manufacturer just happened to leave out the fifth 
address line. Similarly, many features of a language can 
be left out without ill effect, but most key features should 
be included. 

Finally, cost and system size are very important. You 
may not have a need for a very expensive compiler or 
may not be able to afford one. If you only have 32K bytes 
of memory in your system, a compiler that requires a 
minimum of 56K will be of little use unless you upgrade. 
Somewhat related to system size is the size of acompiled 
program. It's important to Know just how much overhead 
each completed program has to lug around to work prop- 
erly. 

In order to compare the C compilers reviewed here, 
several tests were made. The results are shown in the 
charts and tables in this article. However, they require a 
brief description to actually understand them. 


David A. Gewirtz, 38-67 Taylor Rd., Fairlawn, NJ 07410. 
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First, there is the problem of testing execution speed 
of the code generated by the compiler. Many benchmark 
tests run aseries of programs through loops that repeat a 
number of different numerical and floating point calcula- 
tions. This is not good for a systems language such as C. 
The six programs used in this performance evaluation 
(PE) test most of the features of Cin such a way as to gain 
a good understanding of each compiler's internal operation. 
Each program loops through a set of simple operations 
that tests that particular feature. The first program (PE1) 
is a simple counting loop with no operations inside the 
loops. Since the tiny-c and Small-C compilers have not 
implemented “for” loops, the tests for those compilers 


Small-C is great as an inexpensive 
alternative to assembler and for the 
person who wants to experiment 
with an inexpensive compiler. 


use the “while” structure. BDS C and Whitesmiths C do 
use the “for” structure. The next test, PE2, performs 
integer calculations inside a simple counting structure 
and tests how fast each compiler can perform the 
mathematical functions of addition, subtraction, multipli- 
cation and division. PE3 tests the execution speed of 
“if/then” statements. It’s important to see how fast a 
compiler can evaluate a conditional expression and follow 
a path. To keep everything consistent, each path does 
the same thing, if taken. Since a large portion of C programs 
make extensive use of pointers and indirection, this is 
another very important thing to test in PE4. Finally, C 


MICROSYSTEMS 


programs are very block-structured, and use functions 
extensively. The final two tests examine the speed at 
which functions are called, both with (PE6) and without 
(PES) argument passing. In order to be sure of the integrity 
of the run-time measurements, three measurements were 
taken from three runs of each program for each compiler. 
The results were taken from three runs of each program 


The Whitesmiths compiler is useful 
mostly to someone who is designing 
large, portable systems. A program 
written in Whitesmiths C on CP/M is 
portable to the VAX, PDP-11, LSI-11, 
and 68000. It also contains the 
entire C syntax. 


for each compiler, then averaged together to come up 
with the final run time listed. All tests were made with a 
digital stop watch. All of the tests were done on a 60K 
byte double density disk 8” disk system using a Z80-A 
microprocessor running at a 4MHz clock speed. 

Generally, both the BDS and Whitesmiths C compilers 
execute programs at about the same speed. Whitesmiths 
is faster at simple counting, conditional evaluation, and 
indirection. BDS is faster at integer calculation and function 
calling, both with and without arguments. The most 
significant difference is in the area of the integer calcula- 
tions. While the integer calculation test on the BDS takes 
about one third as long as the counting loop, the same 
test compiled with the Whitesmiths takes longer than the 
counting loop. Although untested, this would imply that 
floating point calculations might also be rather slow. These 
tests tie BDS C and Whitesmiths C for the first place 
position in the execution speed tests. It’s interesting to 
note that the Whitesmiths C compiler is written in C, while 
BDS C is written in 8080 assembler code. 

The $15 Small-C compiler is the runner up in the speed 
tests. It is about one-half the speed of BDS and Whitesmiths. 
For a very inexpensive compiler, this is a real winning 
point. 

Last in the speed trials comes the tiny-c Two compiler. 
It averages thirty times slower than BDS and Whitesmiths 
together and twenty-two times slower than the speeds of 
all of the other three compilers averaged together. Although 
faster than the tiny-c interpreter, this compiler is not as 
fast as one would expect it. The longest running test 
program of the other three compilers (PE4 on Small-C) 
took 9 minutes, 24 seconds to execute. This same program 
took two hours and twenty-seven minutes to execute 
using the tiny-c TWO compiler. This is quite a difference, 
even without considering the fact that Small-C is $15 and 
tiny-c TWO is $250. 

The next thing tested was the speed of compilation. 
These tests measured the time it took to go from source 
code to executable object code, including assembly and 
linkage if necessary. The fastest was BDS C, with an 
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average compile and link time of 29.7 seconds. This is 
even faster than the Digital Research MAC Macro 
Assembler would assemble the code produced by Small- 
C. The second fastest was tiny-c TWO, pulling up from 
last place in the execution speed runs to second place 
with an average 63 second compile/link time. Obviously, 
they should have the compiler spend more time to produce 
faster code. Next in line was Small-C. This was interesting 
to measure as the compilation time was measured from 
the Small-C compiler. Assembly of the assembler source 
code produced by the compiler and load time of the hex 
file produced also had to be measured. Together the 
whole thing totaled about a three and one-half minute 
compilation and linkage time. Finally, bringing up the 
rear is the Whitesmiths C compiler. Whitesmiths takes an 
average of 246.3 seconds (just over four minutes) to 
compile and link a program. Most of this time, about three 
minutes, was spent in the linkage stage. | suspect this is 
because it has over one hundred and sixty functions that 
the linker must sift through. 

The last type of empirical measurement was final object 
file size. These measurements were taken by using the 
CP/M STAT command. The results are formatted in terms 
of records and K's of bytes. The least amount of space 
was taken up by tiny-c TWO, with about two records and 
2K bytes. The space used by tiny-c TWO is so small 
because the entire run-time system, usually included 
with the object code, is included in the separate shell 
module used to run the programs. Predictably, next in 
line are Small-C programs. Following that is BDS C and 
finally, with much larger object code files than all of the 
others, are the programs generated by Whitesmiths. The 
size of the object file is usually dependent on how powerful 
the implementation is and how much support software 
must be carried along. It does however, seem that the 
Whitesmiths files are still a bit larger than they need be. 

Looking at all of this information, it is very difficult to 
come up with any definite winners or losers. Each different 
implementation has its advantages and disadvantages. 
Whitesmiths is a complete implementation and is as fast 
as BDS C, but it takes a long time to compile and its 
purchase price is high. Small-C lacks many features, but 


The BD Software C compiler seems 
to be with the most universal 
appeal. At $145, it is a relatively 
inexpensive, quality compiler. It is 
fast, easy to use, and fairly 
complete. 


is fast and very inexpensive. Tiny-c TWO is slow, but 
comes with impressive documentation, is a terrific learning 
tool, and works very well with its interpreter as a develop- 
ment tool. 

Fortunately each of the four compilers seems to appeal 
to acertain type of user with only minimal overlap. Small- 
Cis great as an inexpensive alternative to assembler and 
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Compiler Test Results 


BDSC 


Average Compilation and Linkage Time: 29.7 seconds 
Average Final Program Size: 26 recs 4K bytes 


Run-time 
(seconds) 
PE1 - Simple Counting Loop 

PE2 - Simple Count and Integer Calculation 

PE3 - Conditional Evaluation 

PE4 - Indirectional (Pointer) Operations 

PE5 - Simple Function Calling (no arguments) 

PE6 - Function Calling with Argument Passing 


Small-C 


Average Compilation and Linkage Time: 203 seconds 
Compilation (C80): 155.5 seconds 
Assembling (MAC): 38.2 seconds 
Loading (LOAD): 7.8 seconds 


Average Final Program Size: 19 recs 4K bytes 
Run-time 
(seconds) 

PE1 - Simple Counting Loop 

PE2 - Simple Count and Integer Calcualtion 

PE3 - Conditional Evaluation 

PE4 - Indirection (Pointer) Operations 

PE5 - Simple Function Calling (no arguments) 

PE6 - Function Calling with Argument Passing 


Tiny-c TWO 


Average Compilation and Linkage Time: 63 seconds 
Average Final Program Size: 2 recs 2K bytes 
Run-time 
(seconds) 
PE1 - Simple Counting Loop 
PE2 - Simple Count and Integer Calculation 
PES - Conditional Evaluation 
PE4 - Indirection (Pointer) Operations............. 
PE5 - Simple Function Calling (no arguments) 
PE6 - Function Calling with Argument Passing 


Whitesmiths C 


Average Compilation and Linkage Time: 246.3 seconds 
Average Final Program Size: 123 recs 16K bytes 
Run-time 
(seconds) 
PE1 - Simple Counting Loop 
PE2 - Simple Count and Integer Calculation 
PE8 - Conditional Evaluation 
PE4 - Indirection (Pointer) Operations.............. 
PE5 - Simple Function Calling (no arguments) 
PE6 - Function Calling with Argument Passing 


Functions of the C Language 


Function BDSC 
do/while 
for 
goto 
if/else 


Small-C  Tiny-c TWO Whitesmiths C 


switch/case 
while 

return 

break 
default 


x< KOK KOK OK OK OX 
«x KK OK OK OK OK OK OK 
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Storage Classes 


Storage 
Class BDSC Small-C Tiny-c TWO Whitesmiths C 
extern xX X 
auto xX 

Static x 
register 

typedef 


<x x KO OX 


«Data Types 


Data Types BDSC Smail-C Tiny-c TWO Whitesmiths C 
char Xx xX xX 
int Xx xX xX 
long xX 
float 

double 

struct 

union 

pointer io 

array of 


< > KK OK OK OK OK OX 


Unary Operators 


Unary 
Operator BDSC Small-C Tiny-c TWO Whitesmiths C 
“p x Xx (implicit) X 
&x xX X xX x 
+x xX xX X 
-x Xx X Xx Xx 
4X xX xX xX X 
--X x Xx xX Xx 
X++ x X xX x 
X-- Xx xX X Xx 
~x X x X 
!x X X X 
(type-name)x x 
sizeof x x x 
sizeof (type-name) x 
xX 


Binary Operators 


Binary 
Operator BDSC 


Small-C Tiny-c TWO Whitesmiths C 


>< KK OK OK OK OK OK OK OK KOK OK OK OK OK 
>< KK OK OK OK OK OOK OK OK OK OK OK OK OK OK 


cad 
> 
< 
>< > >K DK KOK DK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


>< KK OK DK OK OK OK OK OK KK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


*BDS-C and Whitesmiths C use the “OP=” shorthand while Small-C 
and TIny-C do not. However, these operations can be accomplished 
in Small-C and Tiny-C in the standard manner. 
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for the person who wants to experiment with an inexpensive 
compiler. Since it comes with source code, it can be 
extensively modified by any “hacker.” The Whitesmiths 
compiler is useful mostly to someone who is designing 
large, portable systems. A program written in Whitesmiths 
C on CP/M is portable to the VAX, PDP-11 LSI-11, and 
68000. It also contains the entire C syntax. Tiny-c TWO is 
best for someone who still wants to learn, and also upgrade 
from an interpreter to a compiler. And, it comes with 
complete source code and a user-modifiable command 
processing shell. The BD Software C compiler seems to 
be the one with the most universal appeal. At $145, itis a 
relatively inexpensive quality compiler. It is fast, easy to 
use, and fairly complete. | have been using the compiler 
for quite some time and have found everything imple- 
mented that | really needed, with the possible exception 
of the static data type. 

All of these compilers generated error messages during 
compilation and linkage. Although they were adequate 
and accurate, not one would win an award for clarity. 
Error messages are supposed to give useful information 
about errors to the programmer to help debug programs. 
Also, it would be nice to have a listing of a// error messages 
in the manual with coherent explanations of what the 
messages mean. The tiny-c manual was closest to this. 

While we're critiquing manuals, | would like to see a 
complete specification of the program, language, or utility 
on the first page. This description should include the 
minimum amount of memory needed, the version number, 
and the address and phone number of the folks to call for 


Source Code! 


The Q/C compiler includes the full source code for a major 
extension to Ron Cain’s Small-C: 

@ For, switch/case, do-while, goto 

@ Assignment operators 

@ Improved code generation 

@ Command line arguments (argv and argc) 

@ Conditional and comma operators 

@ I/O redirection 

@ I/O library written in C 

®@ Generates code for M80 (or ASM or MAC) 


Q/C does not include float, double, long, unsigned or short; 
static externals; initializers; sizeof; typedef; casts; structures and 
unions; multidimensional arrays; #ifdef, #if, #undef, #line. 

For only $95 (including shipping in the US and Canada) you 
get the full source code and a running compiler with sample 
programs on disk, along with a well-written user manual. 
(Requires 48K CP/M system.) 

We also sell CW/C, a C compiler which runs on a 56K CP/M 
system. It supports structures, unions, multidimensional arrays, 
#ifdef, and will selectively search “source library” files for 
functions used by your program. The |/O library for CW/C is 
written almost entirely in assembler. CW/C costs $75, and does 
not include source code for the compiler. 

CW/C and Q/C both grew out of Small-C, but were 
developed independently. Jim Colvin of Quality Computer 
Systems implemented Q/C. We are offering Q/C for the many 
Small-C fans that want the source code to an extended compiler. 
(We still distribute the original Small-C source code on disk for 
only $17). 


CA residents add 6% tax. Visa and MasterCard welcome. 


TheCodeWorks Box 550, Goleta, CA 93116 805-683-1585 
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help. One last thing that | would like to see with these, 
and all other higher level compilers on micros, are 
debugging aids. Big machines have debugging programs 
that allow tracing through the high level language 
statements, placing breakpoints, changing values, and 
so on. Instead of looking in SID (Digital Research's 
“Symbolic Instruction Debugger”) for an ‘LDA A,var', it 
would be nice to have a breakpoint at ‘a=var’. The closest 
to this is BDS, which generates a simple table acceptable 
to SID. 

An interesting thing about these compilers is their quality. 
Although some of them may be faster or slower than the 
others, and may be missing some features | would like to 
see, they are all well-executed products. The compilers 
are complete and well thought-out. They are accompanied 
by reasonable documentation, although the documentation 
from Whitesmiths was an experience. 

Finally, | found the customer service people from all of 
the companies to be very helpful. One minor note is that 
they did know | was reveiwing their compilers, so I'm 
not sure how | would have been treated otherwise. | also 
cannot testify to the quality of customer support at Lifeboat 
Associates, the distributor of BDS C. | dealt directly with 
Leor Zolman, the author, who was extremely helpful. 
One final observation concerns both Tom Gibson of tiny- 
c associates and Leor Zolman of BD Software. | have 
spoken with many people who have also dealt with them, 
and have learned that they have very good reputations. 
BDS C, Small-c, tiny-c TWO, and Whitesmiths C have all 
impressed me immensely. B 


INFOSOFT Has a Better Way 


FULLY INTEGRATED “C” AND 
ASSEMBLER DEVELOPMENT 
TOOL KIT 


FEATURING 
INFOSOFTS 
/SAL™ 
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/* 


main() 


/* 


main() 


4% 


main() 


BDS C Evaluation Programs 


Performance Evaluation Program #1 
Simple Counting Loops 


(BDS C) 


int i, J3 

printf("Start of Run\n"); 

for (i=1$ i!=50003 ++i) 

< 
for (j=13 j!=1005 ++J) 

€ 
> 

eg 

printf("End of Run\n")} 


Performance Evaluation Program #2 
Simple Count and Integer Calculation 


(BDS C) 


int is Jp ky 1} 
printf("Start of Run\n")}3 
for (i=13 i!=300003 ++i) 
< 
Jj = (5€"607+7)/32}3 
k = (j+47)«613 
a 
Printf ("End of Run\n"); 


Performance Evaluation Program #3 


Conditionals 
(BDS C) 
int i», Jj} 
Printf("Start of Run\n")} 
J = 25003 
for (i=13 i!=300003 ++i) 
< 
at CLS 
c 
ji = 25003 
P 
else 
c 
ji = 2500; 
> 
if (i> 
9 
Jj = 2500; 
> 
else 
< 
Jj = 25003 
Pd 
if (i <= j) 
€ 
Jj = 2500; 
> 
else 
< 
J = 2500; 
> 
if (i >= j) 
¢ 
J = 25003 
ef 
else 
€ 
Jj = 25003 
3 
> 


printf("End of Run\n")3 


/* 
Peformance Evaluation Program #4 
Pointer Operations 
(BDS C) 
*/ 
main() 
< 
char arryli28], xptr} 
int i; 
Printf("Start of Run\n")} 
for (i=1; i!=300003 ++i) 
< 
ptr = arry3 /* Set pointer to beginning x/ 
while (ptr!=arry+128) 
<: 
mptr = ‘X‘3 
++ptr; 
3 
> 
printf("End of Run\n")$3 
3 
/*® 
Performance Evaluation Program #5 
Simple Function Calling (no arguments) 
(BDS C) 
«/ 
main() 
< 
int i, J} 
printf("Start of Run\n")} 
for (i=13 i!=50003 ++i) 
< 
for (j=13 j!=1003 ++j) 
c 
funci()}3 
3 
> 
printf ("End of Run\n")3 
my 
fuunc1¢) 
< 
funez()} 
3 
func2() 
€ 
3 
/*® 
Performance Evaluation Program #6 
Function Calling with Arqument Passing 
(BDS C) 
x/ 
main() 
Le 
int ip jp Ke L$ 
printf ("Start of Run\n"')$ 
for (i=1$ i!=50003 ++i) 
< 
for (j=1$ j!=1003 ++ 5) 
< 
k = funci¢j)3 
H 
> 
printf("End of Run\n")3 
> 
funeci(n) 
int n3 
¢ 
int m} 
® = fune2(n)3 
return m} 
3 
func2(z) 
int z}3 
A 
return z} 
> 
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Small-C Evaluation Programs 


MICROANGELO HARD COPY 


00 .2a »40 -£0 ~380 1 
SPRINT -—- A SCREEN PRINTING PROGRAM 
S-PLOT - A SCREEN PLOTTING PROGRAM 


LABORATORY COMPUTER SYSTEMS, INC. 
139 Main Street, Cambridge, MA 02142 
(617) 547-4738 


/* 
Performance Evaluation Program #1 
Simple Counting Loops 
(Smal1l-C) 
«/ 
main() 
int ip Ji 
puts("Start of Run\n")3 
i= 13 
while (i != 5000) 
€ 
Jj = 15 
while (j != 100) 
c 
++i} 
MG 
++i} 
Fe 
puts("End of Run\n") 3 
= 
/* 
Performance Evaluation Program #2 
Simple Count and Integer Calculation 
(Small-C) 
«/ 
main() 
int ip Jr Ke 13 
puts("Start of Run")} 
i= 1; 
while (i != 30000) 
Jj = (5%607+7)/32}3 
kK = (j+47) e613 
++i} 
= 
puts("End of Run") } 
> 
/* 
Performance Evaluation Program #3 
Conditionals 
(Smal1-C) 
«xs 
main() 
34 
int i, J} 
puts("Start of Run"); 
uj = 2500; 
i= 13 
while (i!=30000) 
if ti << 32 
S 
Jj = 2500; 
- 
else 
< 
ji = 2500; 
> 
if (i > j) 
c 
Jj = 25003 
3 
else 
c 
Jj = 25003 
* 
if (i <= j) 
< 
Jj = 2500; 
else 
a 
Jj = 2500} 
if (i >= j) 
< 
j = 25003 
5 
else 
£ 
j = 2500; 
> 
++i} 


+ 
puts("End of Run')3 
2 
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SOFTWARE* 


DESCRIPTION LIST 


COMPLETE BUSINESS 
ACCOUNTING SOFTWARE 
Includes source code in CBASIC2 for General 
Ledger, Accounts Payable, Accounts Receivable, 
Payroll, Order Entry, Purchase Orders, Deprecia- 
tion of Capital Goods, Mailing Lists 


Osborne G/L, A/R, A/P 

Osborne Payroll w/Cost Accounting 

EDS Inventory for Osborne A/R-A/P wiDistrict 
Functions 


EDS Inventory for Osborne A/R-A/P wio District 
Functions 


$450 
$150 


$400 
$250 
$295 


$795 
$495 


MAGSAM IV indexed sequential file system. 
PRISM ADS Data base management system 
PRISM IMS Data base management system 


Terms: A. Cash, Check, Money Order, C.0.D.—20% Discount 
B. Master Charge or Visa—15% Discount 


*Software products require CBASIC2 for operation. 


EXECUTIVE DATA SYSTEMS 


post office box 205 
roselle park, new jersey 07204 
(201) 241-4887 
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x Tiny-c TWO Evaluation Programs 


Peformance Evaluation Program #4 


/* Performance Evaluation Program #1 
Pointer Operations /* 
/* Simple Counting Loops 
(Smal1l-C) /* 
/*® (tiny-c TWO) 
«/ 
5 main 
main() c 
< ’ 
int i, J 
char arryli28], xptr} pl “Start of Run" 
int if i= 1} 
puts("Start of Run")$ while (i '= 5000) 
i = 13 
while (i '= 30000) p j=ut 
= " while (j != 100) 
ptr = arry; Cc 
while (ptr! =arry+128) ++ ij} 
< 4 
Kptr = ‘X’3 ++it 
+tptry j 
> 2 pl “End of Run" 
++i3 3 
ay 
puts("End of Run") 3 
> 
hel Performance Evaluation Program #2 
7% /* 
7m Simple Count and Integer Calculation 
Performance Evaluation Program #5 /% 
/® (tiny-c TWO) 
Simple Function Calling (no arquments) Vn 
(Smal1-C) main 
*/ C 
; int is Jj» ky 1 
main) pl "Start of Run" 
< imi 
int i, J} while (i != 30000) 
puts ("Start of Run")} c 
i= 13 J = (5«607+7)/32 
while (i!=5000) k = (j+47)«61 
« ++i 
j = 13 a 
while (j!=100) pl “End of Run" 
< 1 
funci()3 
++it 
EG 
++if 
> 7% Performance Evaluation Program #3 
Puts("End of Run) hl 
> /* Conditionals 
f ss 
pense yx (tiny-e THO? 
funez()$ am 
> ; 
main 
c 
f 2 int ip J3 
ences? pl "Start of Run" 
> j = 25003 
i= 13 
while (i!=30000) 
c 
/* 
Af (2 <9 
Cc 
Performance Evaluation Program #6 j = 25003 
Function Calling with Arqument Passing a 
(Small-C) c 
«/ ia ji = 2500; 
F | 
main() 
c if di > 5? 
int iy jy ky 13 : ; 
puts("Start of Run")} J = 25003 
i= 13 I 
while (i!=5000) else 
£ c 
j= 3 Jj = 2500; 
while (j!=100) i 
< 
k = funci(s)$ if (i <= Jj) 
++i} c 
3 i = 25003 
++i3 3 
3 else 
puts("End of Run")} c 
> j = 25003 
1 
funeiin) if (i >= J) 
int n3 c 
£ j = 2500; 
int m3 i 
m = func2(n)$ 
return m3} else 
3 c 
j = 25003 
B | 
fune2(z)> ++i} 
int z} : 
£ i 
return z} Pl “End of Run" 
> a 
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_ 


/® 
1% 


funct 


Peformance Evaluation Program #4 
Fointer Operations 


(tiny-ec TWO) 


char arry(128), ptr¢o) 


ptr(0) = ‘XxX’ /* Use of pointers in tiny-c /* 


int i 
pl "Start of Run" 
i=l 
while (i != 300) 
c 
ptr = arry; 
while (ptr!=arry+128) 
c 
++ptr} 
1 
++i 
1 


pl "End of Run" 


Performance Evaluation Program #5 
Simple Function Calling (no arauments) 


(tiny-c THO) 


int ip Jf 
pl "Start of Run" 


i= 13 
while (i!=5000) 
c 
j= 13 
while (j!=100) 
c 
funci()} 
+453 
FY 
++i 
1 


pl "End of Run" 


func2()$ 


Performance Evaluation Program #6 
Function Calling with Arqument Passing 


(tiny-c THO) 


int i, Jj» ky 1} 
pl "Start of Run" 


i= 13 
while (i!=5000) 
c 
ji = 13 
while (j!=100) 
E 
k = funct (jt 
++i} 
J 
++if 
1 


pl “End of Run” 


int m} 
m = fune2(n)} 
return m} 


return Zz} 


Whitesmiths Evaluation Programs 


cm 


main() 


Performance Evaluation Program #1 
Simple Counting Loops 


(Whitesmiths) 
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x/ 


maind) 
< 


«xs 


main() 
< 


main() 


ptr = 


int ip J} 
putfet ("Start of Run\n")3 
for (i=13 i!=5000; ++i) 
< 
for (j=1$ j!=1003 ++ 5) 


Pa 
putfmt("End of Runm\n")}3 


Performance Evaluation Program #2 


Simple Count and Integer Calculation 


(Whitesmiths) 


int is Jy ky 13 
putfeat("Start of Run\n")} 
for (i=13 i!=300003 ++i) 
c 


(5«607+7)/323 
C5447) ab13 


J 
k 


un 


a 
putfat("End of Run\n")} 


Performance Evaluation Program #3 


Conditionals 
(Whitesmiths) 
int iy J} 
putfmt ("Start of Run\n")} 
j = 25003 


for (i=13 i!=300003 ++i) 
c 


if (i < J) 


¢ 

j = 2500; 
3 
else 
< 

j = 2500; 
Hg 
if <i > 3) 
€ 

j = 25003 
> 
else 
< 

j = 25003 
+ 


af (i <= §) 
c 


4 


j = 25003 
> 
else 
< 
Jj = 2500; 
> 
if (i >= 5) 
: J = 2500; 
> 
else 
£ 
J = 25003 


putfat("End of Run\n"); 


Peformance Evaluation Program #4 
Pointer Operations 


(Whitesmiths) 


char arryli28], xptr} 

int i} 

putfat("Start of Run\n")} 
for (i=13 i!=300003 ++i) 
< 


arry3} /*® Set pointer to beginning */ 


while (ptr!=arryti28) /7* of array and count till */ 


c 


/*x end, While is used instead *« 
ptr = ‘X‘3 /* of for as example x*/ 
+tptr} 
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putfat("End of Run\n")$ 


/* 
Performance Evaluation Program #5 
Simple Function Calling (no arguments) 
(Whitesmiths) 
*/ 
main) 
int is Js 
putfat("Start of Run\n")} 
for (i=1; i!=5000; ++i) 
: for (j=1$ j!=1003 ++5) 
funci(); 
> 
puttat("End of Run\n")} 
> 
funci() 
func2()3 


fune2z() 


7* 
Performance Evaluation Program #6 
Funetion Calling with Argument Passing 
(Whitesmiths) 

*/ 
main() 

int i+ Jy kp 13 

putftet("Start of Rum\n'"')$ 

for (i=13 i!=5000; ++i) 

for (j=13 j!=1005 ++ 5) 
k = funcel¢j)$ 

putfat("End of Rum\n"")} 
funnel (nm) 
int m3 

int m} 

m = funezZz(n)} 

return m3 
fune2z(z) 
int. 23 

return z} 


ATTENTION S-100 
USERS, OEMs & ISOs! 


MM-103 IS THE ONLY MODEM 
FOR YOUR NEEDS! 


In previous issues, we listed more than 50 reasons why PMMI MM-103 modems 
are superior, along with a list of satisfied users that is now too long to print. 
Quality, integrity and low cost have made the MM-103 America’s most popular modem. 
PMMI was the first to gain FCC approval and meet IEEE-696 S-100 standards. 


You won't find another modem for the S-100 bus with a wider range of Baud rates, 
more extensive and controllable software and such an unbeatable warranty. 
And since PMMI has eliminated the need for an acoustic coupler or an RS 232 adapter, 
your connection is more reliable and you buy no unnecessary hardware. 


SO DON’T DELAY! 
GO WITH THE MODEM WITH EXPERIENCE! 


COMMUNICATIONS 
[POTOMAC MICRO-MAGIC, INC.] 


For further information, call or write: 


Three Skyline Place 
5201 Leesburg Pike, Suite 604 
Falls Church, VA 22041 
[703] 379-9660 


Or dial into our 24 hour-a-day Modem Test Center: 
{703} 379-0303 [300 Baud} 


AFTER ALL... 


ALL MODEMS ARE NOT 
CREATED EQUAL! 


°North Star 


BASIC UTILITY SET 


@ EDITOR — Create & edit a 
Basic program using 26 
commands, including 
GLOBAL locate & change. 


BPRT — Print & cross 
reference a Basic program. 


BPAK — Pack a Basic 
program. 


m RE — Rename a disk file 


plus $1.50 shipping, 
$69 Calif. Res. add 6% 
(eq. check. VISA. MC 
74 Software Systems 
1269 Rubio Vista Road, Altadena. Calif. 91001 
~ (213) 791-3202 


CP/M®<IBM 
CP/M< DEC 
Compatibility with 


REFORMAI IER” 


Exchange data files with most IBM and 
DEC equipment through REFORMATTER disk 
utilities. With REFORMATTER, you can read 
and write IBM 3740 and DEC RI-11 formatted 
diskettes on your CP/M system. Programs fea- 
ture bi-directional data transfer and full direc- 
tory manipulation. ASCII/EBCDIC conversion 
provided with CP/M<>IBM. 

Each program $195.00 from stock. Specify 
CP/M<>IBM or CP/M<>DEC when ordering. 


Program Data Sheets and Application 
Guide available from MicroTech Exports, Inc., 
467 Hamilton Ave., Suite 2, Palo Alto, CA 
94301 0 Tel: 415/324-9114 CD) TWX: 910- 
370-7457 MUH-ALTOS OC Dealer & OEM 


discounts available. Zam @@ 


CP/M® is a registered trademark of Digital Research 


A Simple 6 Byte Hexadecimal 
ASCII Conversion Routine 


by Kelly Smith 


Only six bytes of 8080 (or Z80) code can perform a 
hexadecimal (0 to F) to ASCII conversion. Assuming 
that the hexadecimal digit is in the A register, then: 


hexStoSascii: ; convertlow nibble hex digit 
in the 
; the A rea., to ASCII character 
in the 
A reg. 
first add 
adjust result, if carry 
second add, adjust to ASCII 
; adjust result, if carry 


adi 90h 
daa 
aci 40h 
daa 


How does it work? There are two main considerations 
for hexadecimal to ASCII conversion: Is the A register 
less than ten, or is the A register greater than or equal to 
ten? 

The first DAA instruction (which operates on the lower 
four bits [low nibble]), adjusts the result of the ADI 
instruction to less than ten. Then the ACI instruction 


Kelly Smith, 3055 Waco St., Simi Valley, CA 93053. 


operates on the upper four bits (high nibble) by adding 
the carry out of the lower nibble. The second DAA 
instruction then adjusts the results of the high nibble to 
less than ten. 

If the A register is initially less than ten, the first add 
results in 9Xh; in this case, the DAA does not affect the 
A register. The second add (with carry) results in 9Xh+40h 
=DXh (D Hex = 13 Dec). After the second DAA, the 
result is 3Xh where “X” is the decimal digits 0 through 9; 
thus the ASCII representation for decimal digit 9 results 
in 39 hexadecimal. 

If the A register is initially ten or greater, the first add 
results in 9Xh (same as before), but the result of the 
foqst DAA is OYh (i.e., Yh=Xh-10d) and includes the 
setting of the carry flag. The next add (with carry) gives 
us oYh+40h+1=4Zh, where Z=Y+1. The last DAA has 
no effect. The hexadecimal digits 41 to 46 represent the 
ASCII alphabetics A to F, for example, let X=10d=Ah, 
then Y=X-10d=10d-10d=0 and Z=Y+1=0+1=1. The 
result is 41hexadecimal, the ASCII symbol for “A”. This 
routine is simpler than the explanation! (63) 


Reprinted from CP/M-NET NEWS 
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Little-Ada* (Part III) 


L/I Interpreter Source List 


by Ralph E. Kenyon, Jr. 


Little-Ada’s Run-time Interpreter and Source Code. 


In this installment, the author presents the run-time interpreter and source code for Little- 
Ada. For background on this subset of the Ada language, please refer to the September/October 
1981 issue of Microsystems. The November/December 1981 installment of this series 


discusses the operation of the run-time interpreter and the compiler. Sample programs are 
also included. The final segment of this article, Part IV, is slated for the March/April 1982 
issue, and will present the compiler and object code. 


Corywrite 1980 by Raleh Kenyon 


ooor 


3200 
3200 


3200 
3203 


0000 


3206 
320A 
320E 
3212 
3216 
321A 
321E 
3222 


Ralph E. Kenyon, dr., 1686 West Main Rd., Portsmouth, RI 02871. 


*Ada is a trademark of the U.S. Department of Defense (Ada Joint 
Program Office). 

NOTE: the DOD does not recognize dialects of the Ada language, 
whether by supersetting or subsetting. 
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C32F3A 
€31135 


01446976 
6973696F 
6E206279 
20786572 
6F206E6F 
74206465 
66696E65 
642101190 


sLittle-Ada L/O machine interrerter 


-sEdited June 21, 1980 


sCoryrisht 1980 by Ralrh Kenyon 
sVersion 1547 Re-designated L/1 Jan 81 
sStripred downs no debus version 


REFS SYSTEM.SY 


REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 


Warm 
WHO 
WHI 
Mss 
USER 
MEMTOP 
Ret 
Tio 
Err 
FILE 
Ovr to 
CMPTR 
Toret 


sLibrary file 
sWarmstart 

sConsol Char in 
#Consol Char out 
iMessase writer 
sStart of user memory 
Last sood memory 
sReturn from overlay 
sDisk In/Out 

sSustem error handler 
sFile data buffer 
sOverlay handler 
sCommand buffer Pointer 
sReturn from Interurt 


REFS <#>LOCODE.SY 
7Oren L/O0 code MACRO Library 


REF 


LOCODE 


sMacro which defines all L/0 code macros, 


-CR Eau 


ORG 


13 
USER 


IDNT $$ 


JMF 
JMP 


Start 
co 


LOCODE 
LIST 0 


DBZ 103 


5% is current value PC 


CRs‘Division by zero not defined!’ sCR1O 


OA 
03 
322632 
B7 
co 


73 
2B 
72 
2B 
cy 


23 
56 
23 
SE 
cy 


FS 
7A 
2F 
57 
7B 
2F 
SF 
13 
Fi 
ce 


ES 
Ci8234 
23232 
19 
7C 
BC 


Inst 
Kase 
Static 
Level 
ARL 

AR2 
ARS 
TMStack 
FIR 


IFD 
IFA 
IFS 
IFF 
IFB 


oFn 
OFA 
OFS 
OFP 
OFR 
Flas 
IFfls 
OFfls 


Fetch 


Push 


Por 


MinDeE 


CONV 


ns 1 sInstruction resister 

rs 2 sBRase resister 

ns’ 2 s#Static link conversion resister 
ms i sLevel resister 

ns 2 sArithemetic storage 1 

ns 2 sArithemetic storage 2 

ns 2 sArithemetic storage 3 

rs 2 #Stack start 

DS 44 sFile descrirptor buffer 

ms i jInreut file drive 

ts 2 sInrut file disk address 

1s 2 jInrut file disk sector 

ns 2 jInrut file buffer rointer 
IS 256 j#Inrut file buffer 

ts i sOutrut file drive 

nS 2 sOutrut file disk address 
“DS 2 sOutrut file disk sector 

DS 2 sOutrut file buffer rointer 
IS 256 sQutreut file buffer 

rs 4 sOutrut file in use flag 

IB 1 jinitialize flags 

DBR 1 initialize fleas 

LIAX BK fInstruction fetch cycle 
INX B 

STA Inst 

ORA A 

RET 

MOV MrE sDE to S(t) 

nex H st#1 to HL 

MOY Moll 

rIicx H 

RET 

INX H iS(t) to DE 

MOV IlsM st-1 to HL 

INX H 

MOV Eom 

RET 

PUSH PSW 7Two’s complement 
MOV ArT sof DE, All other 
CMA jresisters rereserved. 
MOV DsA 

MOV AsE 

cma 

MOU EsA 

INX I 

POP PSW 

RET 

FUSH H sRequires T in DE 
CALL MinDE (Static) 

LHLI' TMStack 

DAL D s<CC TMStack )-( Static) 
MOV ArH iWe’re going to divide by 2 
CMP H s(Just reset carry) 


MICROSYSTEMS 


————  —— — — — — —  —  — — — — — ——— — ———————————— ————————————————————EeeEEeEEE 


3496 IF RAR sPuts lo bit in carry 354A C7834 CALL Push sDyunamic link second 
3497 57 MOV DrA sRisht shifted by 1 354r £3 XTHL sTMSF to stack 
3498 70 MOV AsL sLo byte 354E ER XCHG 
3499 «IF RAR sCarry goes into hi bit 354F Clec34 CALL CONV 
349A 5 HOV EsA 5(16 bits right shift) 3552 EB XCHG 
349H El POF H 3553 222732 SHLD Base sSet new base 
349C C9 RET sResult in DE 3556 C7134 CALL Fetch jlets set that address 
3559 57 MOV DsA 
sThis section computes the static link 355A Cl7134 CALL Fetch 
sbu finding the ltack rosition base for 3550 SF MOV EsA 
*L levels down. 3SSE 212F3A LXI H»Psmaddr 
3561 19 Dan DB 
3490 FS GStL PUSH FSW 3562 E3 XTHL jAddr to tor of stack 
349E ES PUSH H 3563 CS PUSH B 
349F 3A2632 LIA Inst sdet & stow level 35464 Tl POP D 
34A2 E60F GStLi ANI OFH 3565 Ci POP B 
34A4 2A2732 LHLD Base sget & stow base 3566 C37834 JMP Push sreturn address 
34A7 = 222932 SHLI Static 
34AA = C3C534 JMF BASE 3569 17 oprlic RAL sCheck next bit for orrlic 
34ALD) 22932 BASE1 LHLD Static jset base 356A TAB1IS5 JC Lic 
34B0 «ER XCHG 
34B1 2A3232 LHLI) TMStack sFor opry we must get last 5 bits from inst 
34R4 13 INX I sWe need to be above by 1 jWe’ll use @ computed goto to set the 
34K5 C8234 CALL MinDE sroutine for the sub-oreration, 
34B8 19 DAD 0D 5(MEMTOP-24T ) 
34B9 19 BAD oD sstack address now in hi 3560 3A2632 opr LDA Inst 
34BA CI7N34 CALL Por sGet SCS(t)) 3570 E61F ANI 1FH 
34BD EB XCHG 3572 87 ADD A sTimes 2 
34BE 222932 SHLID) Static 3573 «SF MOV EsA 
34C1 3A2R32 LDA Level get level 3574 1600 MVI [sO 
34C4 Sr ICR A 3576 ES PUSH H ssave TMSP 
34C5 322832 BASE STA Level 3577 21CB35 LXI Hs Jtbl jimr table 
34C8 C2AN34 JNZ BASEL 357A 19 TAD D sadd rosition 
34CK EB XCHG jReturns static level in DE 357B SE MOV E»M 
34CC EL POP H 357C 23 INX H 
34cCn Fi POP PSW 3570 56 MOV DyM 
34CE C9 RET 357E ER XCHG saddr to HL 
357F £3 XTHL jaddr to stack 
34CF 1602 Out2 MVI Es2 sOutrut file already exists 3580 C9 RET jJump to addr 
34D1 C30634 JMP OGuto 
3404 1£03 Out3 HVI Er3 jInrut file not specified sNow we’ve got to sort out the number of 
3406 1607 Outo MVI Dy7 jbytes used for the constant in this lic 
3408 C30F04 Out JMP Err 
3581 17 Lic RAL 
34DB 3EEO Gf MVI Ax OEOH 3582 DABF35 JC Lici 
3400 Ch1i204 Cfi CALL Ovrto 3585 3A2632 LDA Inst #1 byte 
34E0 47666964 DB ‘Gfid’ 3588 E60F ANI OFH 
34E4 C9 RET 358A 1600 MVI D+0 
358C C3A235 JMP lic4 
sParameters for Dio set ur by start code 358F 17 Licl RAL 
sHere’s where we get the file to be 3590 TDAQE3S JC lic2 
sinterrretered 3593 3A2632 LIA Inst 52 bute 
3596 £607 ANI 7 
34ES C0694 GETP CALL Dio Go set it. 3598 C39E35 JMP lic3 
34E8 DANSI4 JC Out sSomething Wrons! 359B C7134 lie2 CALL Fetch 53 bute 
34ER 212F3A LXI Hr Psmaddr set the rrosream 359E 57 lic? MOV DA 
34EE ES PUSH H 359F CD7134 CALL Fetch 
34EF C1 POP B sSet TMFC to first byte 35A2 SF lic4 MOV ExA 
34FO 2A3232 LHLD TMStack sSet initialize TMSP 35A3 037834 JMP Push slet Push RET for us 
34F3 110000 LXI D0 sFirst rosition on stack for 
34F6 CI7834 CALL Push sCharacter in/out S5A6 17 branch RAL 
34F9 C7834 CALL Push Static link 35A7  D2B935 JNC Br 
34FC (13 INX Tt 35AA C7034 CALL Por 
34FD ER XCHG 35aAD 7A MOV ArT 
34FE 222732 SHLD Base sset Base ist 3SAE 7 ORA A 
3501 ER XCHG SSAF C2935 JNZ Br #(bnz) 
3502 C7834 CALL Push sDyunamic link same 35B2 83 ADD E 
3505 112E3A LXI DyOrigin saddr of that ‘hit’ byte 3SB3 C2R935 JNZ Br #(bn2z) 
3508 CII7834 CALL Fush 35R6 C37134 JMP Fetch Skip this bute 
350B CIIFF37 CALL INB slet Fetch return 
350E C5039 CALL OUTB 
J 35B9 3A2632 Br LDA Inst 
sThis routine sets itself ur as a return address 35KC E63F ANI 3FH sKill opcode 
3SBE 57 MOV DA sHi addr 
3511 £5 co PUSH H sReturn to here SSBF CD7134 CALL Fetch srest of addr 
3512 211135 LXI H»GO 35C2 SF MOV EsA sLo addr 
3515 £3 XTHL sFut our addr on stack 35C3 £5 PUSH H 
3516 C7134 CALL Fetch 35C4 212F3A LXI HF smaddr jAdJjust for rrosram 
3519 17 RAL 35C7 19 Dal Sload address 
351A D2A635 JNC branch #0 means br or bnz 35C8 £3 XTHL 
351n 17 RAL 35C9 Cl POF BE 
SS1E 0126935 JNC orrlic 35CA C9 RET 
3521 17 RAL 
3522 18 RC #111XXXXX is NOP 35CB OB36 Jtbl Dw Halt #0 
3523 Cn9n34 CALL GStL sFor both lad & call 
3526 17 RAL sNow which one Halt closes both the input and the 


outrut files before invoking Exec. 
The input and output file setur routines 
are restored to IFR and OFR also. 


3527 = [A3C35 JC Call do we have? 


sHere we have to set the address from 
the program immediate data (two bytes) 


35CD) 1636 OW addsub 51 
352A ES Lad PUSH H 35CF 1636 TW addsub 52 
352B 2A2932 LHLD Static 35D1 2036 DW muldiv +3 
352E C7134 CALL Fetch 3503 2036 IW muldiv 54 
3531 57 MOV TyA sAddress hi bute 3505 F236 IW Mod 5 
3532 C7134 CALL Fetch 3507 3637 DW Neg 36 
3535 SF MOV EsA Address lo byte 3509 3F37 DW Not 57 
3536 19 DAD — sAdd in the stack base 35DB 8837 DW Sete 78 
3537 +E XCHG srput it in DE 3500 Ag37 DW Setls #9 
3538 £1 FOP H 350F A837 IW Setls 5A 
3539 037834 JMP Push sLet push return 35E1 5737 IW Swer 5B 
35E3 6837 DW retn iC 
This routine puts links on stack 3S5ES CR37 IW Rav sD 
sfollowed by return address 35E7 DF37 IW Sto 5E 
35E9 F637 DW inc iF 
353C ES Call PUSH H sWe need TMSF later SSEB FF37 IFR DW INB 510 
3530 EB XCHG 
353E 2A2932 LHLI Static 5 INB sets ur the inrut file data for Dio 
3541 ER XCHG * and ruts the address of Inb into IFR. 
3542 C7834 CALL Push sStatic link first 5 If 3 file is not selecteds INK ruts the 
3545 EB XCHG + address of Cinb into IFR (ineut from consol) 
3546 2A2732 LHLD Rase 
3549 EB XCHG SSEL 5039 OFR BW OUTB #11 
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Little-Ada, continued... 


SSEF 
35F1 
35F3 
35F5 
3SF7 
35F9 
35FB 
35F0 
SSFF 
3601 
3603 
3605 
3607 
3609 


360B 
360E 
3611 
3614 
3615 


3616 
3619 
361A 
3610 
361E 
361F 
3622 
3624 
3627 
3628 
3629 
362A 


3620 
3630 
3631 
3634 
3635 
3638 
3639 
363C 
363F 
3641 
3644 
3647 
364A 
364B 


364E 
364F 
3650 
3651 
3652 
3655 
3656 
3657 
365A 
365B 
365E 
365F 
3662 
3663 
3664 
3667 
3668 
366B 
366C 
3660 
3670 
3672 
3673 
3676 
3677 
3678 
3679 
367A 
367B 
367E 
367F 
3681 
3682 
3685 
3686 
3687 
3688 
3689 
368A 
3680 
3690 
3693 
3696 


3699 
369A 
369B 
369C 
3690 
36A0 
36A3 
36A4 
36AS 
36A8 
3é6A9 


3é6AC 
36AD 
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2805 
2805 
2805 
2805 
2805 
2805 
2805 
2805 
2805 
2805 
2805 
2805 
2805 
2805 


CDES39 
21FF37 
22EB35 
D1 
cy 


Cu7n34 


DS 


EB 
222E32 
3A2632 
£604 
CC4E36 
C49936 
2A3032 
ER 
C3784 


FS 
cs 
nS 
ES 
2A2C32 
7c 


2A2E32 
7C 
B7 
C26R36 
85 
CA9036 
4C 


C28136 
C39336 
210000 
223032 
C36400 


FS 
cs 
0S 
ES 
010000 
2A2C32 
7c 
B7 
C2AC36 
85 
CAES36 


ER 
2A2ZE32 


sae ae ae we 


QUTB sets up the outrut file data for Dio 
and puts the address of Outb into OFR. 

If a file is not selecteds OUTE ruts the 
address of Coutb into OFR (outrut to consol) 


#These remaining are all treated as nop 


Halt 


addsub 


muldiv 


MULT 


MULT 


MULT2 


MULT 


MULT4 


MULTS 


MULTS 


MULT7 
MULTS 


DIVD 


DIVE 


DW Ret 
DW Ret 
DW Ret 
DW Ret 
DW Ret 
DW Ret 
TW Ret 
IW Ret 
TW Ret 
DW Ret 
DW Ret 
DW Ret 
BW Ret 
BW Ret 


CALL TURNOFF 
LXI Hy INB 
SHLD IFR 

POF D 

RET 


CALL Por 
PUSH I 
CALL Por 
XTHL 
XCHG 

LIA Inst 
ANI 2 
CNZ MinDE 
DAD D 
XCHG 

POP H 
JMP Push 


CALL Por 
XCHG 
SHLD ARI 
XCHG 
CALL Por 
XCHG 
SHLD AR2 
LIA Inst 
ANI 4 

CZ MULT 
CNZ DIVE 
LHLD ARS 
XCHG 

JMP Push 


PUSH PSW 
PUSH B 
PUSH BD 
PUSH H 
LHLD ARI 
MOV AsH 
GRA A 

JNZ MULTI 
aDD Ll 

JZ MULT7 
XCHG 

LHLD AR2 
MOY ArH 
ORA A 

JNZ MULT2 
Ann Lb 

JZ MULT7 
MOY CrH 
MOV AsL 
LXI HO 
MVI B98 
RRC 

JNC MULT4 
TaD BD 
XCHG 

DAD H 
XCHG 

DCR B 

JNZ MULT3 
MOV ArC 
MVI Bs8 
RRC 

JNC MULTS 
DAD - 
XCHG 

DAD H 
XCHG 

DCR B 

JNZ MULTS 
JMP MULTS 
LXI H10 
SHLD ARS 
JMP Toret 


PUSH PSW 
PUSH B 
PUSH D 
PUSH H 
LXI BsO 
LHLD ARI 
MOV ArH 
ORA A 
JNZ DIVD1 
ADD Lb 

JZ DEZER 


XCHG 
LHLD AR2 


$12 insurance 

913 

714 

$15 

516 

517 

518 

519 

518 

51B 

x1C 

51D 

s1E 

g1F 

sClose oren outrut file 
Restore Inrut file 


sOren sequence 
sClean up stack 


#SCt) 

sS¢t-1) 

5S¢t) to HL 

sS(L) to DE 

gis it @ subtract? 


#S¢t-1)-SCt) IN HL 


#Get TMSP back 
let eush return for us 


snot multiple? 


slet push return for us 


$16 bit multiply 
swith no overflow test 
sreturns Froduct mod 10000H 


jsave hi byte 
do lo byte 


snow do hi byte 


#Result goes here 


jlets see if 
the idiot wants 
sto divide by 
szero. 

sHe does! 


snorer so get 
sdividend 


36R0 
36B1 
36R2 
36B5 
36R6 
36B9 
36BC 


36BF 
36C0 
36C1 
3604 
36C7 
36C8 
36CB 
36CC 
36cD 
3600 
36D1 
3604 
3605 
3608 
3609 
36DA 
3600 
36DE 
36DF 
36E2 


36ES 
36E8 


36ER 
36EE 
36F1 


36F2 
346FS 
36F6 
36F9 
36FA 
36FB 
36FC 
36FF 
3700 
3703 
3706 


3709 
370A 
370B 
370E 
370F 
3712 


3715 
3716 
3717 
371A 
371B 
371C 
3710 
371E 
371F 


3722 
3725 
3726 
3727 
372A 
3720 
3730 
3731 
3732 
3733 


3736 
3739 
373C 


373F 
3742 
3743 
3744 
3747 
3748 
3748 
374E 
3751 
3754 


3757 
375A 
375B 
375E 
375F 
3760 
3761 
3764 
3765 


3768 
376B 
376E 
376F 
3770 
3771 
3774 
3777 
3778 
3778 
377 
3770 


C2BF36 
210000 
CSDF36 


7C¢ 
BA 
DADDIS 
CACE36 
03 
C30436 
70 
BB 
DADDI6 
03 
CALD36 


223032 
C36400 


CDER36 
C3B936 


87 
C20937 
85 
C20937 
CDEB36 
C32037 


7A 
B7 
C2137 
83 


C210137 
C32037 


EB 


nS 
Ch8234 
19 
Di 
ER 
7A 
BC 
DA3037 


C21537 
7B 
BD 
1A3037 
021537 
110000 
ER 
E3 
D1 
C37834 


CL7n34 
C8234 
C37834 


C7034 
7A 
B7 
C25137 
83 


C25137 
110100 
C37834 
110000 
C37834 


CL7N34 
0S 


Ch7D34 


C37834 


2A2732 
110300 
19 
29 
EB 
CD8234 
2A3232 
19 
Cu7 034 
nS 
ci 
CO7D34 


DIVD7 


DIVD2 


nIVDS 


SUBT 


DIVn4 


DIVDS 


DBZER 


DBZ1 


Mod 


Modi 


SUBRTR 


TEST 


Mod3 
Tone 


Nes 


Not 


Notl 


Not2 


Swar 


retn 


MOV Ard 
ORA 
JNZ DIVDZ 
ADD E 

JNZ DIVD2 
LXI HO 
JMP DIVDS 


> 


MOV ArH 
CMP D 

JC DIVD4 
JZ DIVES 
INX B 

JMP SUBT 
MOV ArL 
CMP E 

JC DIVD4 
INX B 

JZ DIVD4 
PUSH I 
CALL MinDE 
DAD D 

PoP D 

JMP DIVD2 
PUSH B 
POP H 
SHLD ARS 
JMP Ioret 


CALL DBZ1 
JMP DIVD7 


LXI Hy DBZ 
CALL Mss 
RET 


CALL Por 
PUSH II 
CALL Por 
XTHL 

MOV ArH 
ORA A 
JNZ Modi 
ADDL 
JNZ Mod1l 
CALL DBZ1 
JMP Mod3 


MOV Ast 
ORA A 
JNZ TEST 
ADD E 
JNZ TEST 
JMP Mod3 


XCHG 
PUSH D 


“CALL MinDE 


DAB 0 
POF D 
XCHG 
MOY Ard 
CMP H 
JC Done 


JNZ SUBTR 
MOV ALE 
CMP L 

JC Done 
JNZ SUBTR 
LXI D0 
XCHG 

XTHL 

POP oD 

JMP Push 


CALL Por 
CALL MinDE 
JMP Push 


CALL Por 
MOV ArD 
ORA A 
JNZ Not2 
ADD E 
JNZ Not2 
LXI Del 
JMP Push 
LXI Dv0 
JMP Push 


CALL Por 
PUSH D 
CALL Por 
XTHL 

XCHG 

XTHL 

CALL Push 
POP D 

JMP Push 


LHLD Base 
LXI Dr3 
DAD D 

DAD H 

XCHG 

CALL MinDE 
LHLD TMStack 
DAD DB 

CALL Por 
PUSH It 

POP B 

CALL For 


sIf it’s 
szero 
sthen 
sresult’s 
salso 
jzero 


#S(t) to DE 

3S(t) to tor of stack 
#SCt-1) to DE 

sS¢t) to HL 

jlets see if 

sthe idiot wants 

sto divide by 

szero. 


jHe does! 


ssee if we 
start with 
#zero 


sSave 


sAdd -DE 
sRestore 


sHi bute of S(t) 


sHi bute of S(t-1) 
s<Hi byte of S(t) 
sits bisser 

sIt’s eaual so 
sCheck lo byte 


sits bisser 
sits eaual 


jlet Push return for us 
$S(t) to DE 


sDE to S(t) let rush ret 


§ look 
shi byte 
jset flags 


jlo bute 


sits Zero so chanse result 


sonto stack let 

push ret for us 

sSC Lt) 

sto TOS 

5S(t-1) to DE 

S(t) TO HLy t-1 to TOS 
sS(L) to DEs S(t-1) to HL 
st-1 to HL» S(t-1) to TOS 
§S(t-1) to TOS 

#S(t-1) to DE 

#S¢t-1) to TMS 

jlet push return for us. 


5 TMPC 


sDunamic link 


MICROSYSTEMS 
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3780 
3781 
3784 
3785 
3786 
3787 


3788 
378 
378C 
378F 
3790 
3791 
3792 
3795 
3796 
3797 
379A 
3790 
379E 


S7A1 
37A4 
37AS 


37A8 
S7ABR 
37AC 
S7AF 
3750 
37B3 
37B5 
3788 
3789 
37BC 
37B0 
37BE 
37BF 
37C0 
37C1 
37C4 
37C7 
37C8 


37CB 
37CE 
37CF 
3702 
3703 
3706 
3707 
3708 
370DB 
370C 


37DF 
37E2 
37E3 
37E6 
37E7 
37E8 
37EB 
37EE 
37EF 
37F0 
37F1 
37F4 
37FS 


37F6 
37F9 
37FC 
37FD 
S7FE 


37FF 


3800 
3801 


3804 
3807 
380A 
380r 


3810 
3811 
3812 
3814 
3817 
3818 
381A 
3810 
3820 
3823 
3824 
3825 


3826 
3829 
382A 
3820 
382E 
382F 


3830 


EB 
222732 
EB 
23 
23 
c9 


ch7034 


C2A137 
110190 
Ei 

C37834 


110000 
Ei 
C37834 


cn7nN34 
nS 
Cn7034 
E3 
3A2632 
E602 


110100 
F2C837 
1B 

C37834 


Ccu7D34 
ES 
2A3232 
13 
CD8234 
19 
19 
CL7034 
Et 
C37834 


Ch7034 
ns 
C7034 
E3 
ES 
CI8234 
203232 
19 
19 
D1 
CL7834 
Et 
cy 


CB71I34 
C8234 
19 
hes 
c? 


ES 
cs 
216F38 


11CR2n 
014441 
CDIBS4 
n28C38 


AF 

82 
FEOS 
C20F04 
83 
FEO8 
C20F04 
212638 
22EB35 
ci 

El 

cy 


Ch200C 


00546865 


Sete 


SETE1 


Setls 


Seti 


Set2 


sNote? 


XCHG 

SHLD Kase 
XCHG 

INX H 

INX H 

RET 


CALL Por 
PUSH [I 
CALL Por 
XTHL 

MOV AsD 
CHP H 

JNZ SETE1 
MOV ArE 
CMP L 

JNZ SETE1 
LXI Del 
POP H 

JMP Push 


LXI D0 
POP H 
JMP Push 


CALL For 
PUSH I 
CALL Por 
XTHL 

LIA Inst 
ANI 2 

JZ Seti 
XCHG 
CALL MinDE 
DAD 0D 
DCX H 
MOV AsH 
ORA A 
POP H 
LXI Del 
JP Set2 
pcx 0 
JMP Push 


RAV essumes that 


se don’t need that 
sstatic link now 


sthey’re eaual 


sJet push return for us 


slet push return for us 


5S(t) to TOS 
5S(t-1) to DE 
3S(t) to HL 


sSetst? 


Reverse for Setst 
5-S(t-1) 

sWant 0<S¢tI-SCt-1) 
Sign test uses >= 0 
sLook at sign 

Set flass 

sTMSP 

sAssume true 

Jump if true 

Falls thru if false 
sLet Push return for us 


the address on the stack 


sis a relative address from the TM stack Frointer 


swith 1 for each 16 bit push or For, 


We multirly 


sthe two’s complement by 2 and add it to 


the address in TMStack 


Rav 


Sto 


INB 


IFR1 


CALL Por 
PUSH H 

LHLD TMSteck 
INX I 

CALL MinDE 
DAL Oo 

nDAn 0 

CALL Por 

POF H 

JMP Push 


CALL For 
PUSH D 
CALL Por 
XTHL 

PUSH H 
CALL MinDE 
LHLI TMStack 
DAD D 

DAD 0 

POR 2 

CALL Push 
FOP H 

RET 


CALL For 
CALL MinDE 
TAD 0 

DAD 0 

RET 


FUSH H 
PUSH BK 
LXI HyIfrr 


LXI DyFILE 
LXI By’ AD’ 
CALL Gf 
JNC IFR2 


XRA A 
ADD D 
CPI 5S 
JNZ Err 
ADD E 
cri 8 
JNZ Err 
LXI H»Cind 
SHLD IFR 
POP B 
POP H 
RET 


(Tor of memory) 


sGet S(t) 
sSave SF 


sWe need to be above by 1 


3( MEMTOP—24T ) 

sstack address now in hl 
sGet SCS(t)) 

sRestore TMSP 

sS( tL 2=SCSCL)) 


S(t) to be stowed 

ssave it 

jaddress to stow S(t) in 
s(We’ll want S(t) first) 
sNeed to use HL 

sConvert Stack 

saddress 

$( MEMTOP-24T ) 

jstack address now in hl 
Get S(t) 
#5¢S(T-1))3=S(T) 

3T-2 to TMSP 


S(t) to dey t-1 in HL 


sS¢t)+t-1 to HL 


sSave VMSP 

sSave VMPC 

sdet one from him. 
#File descriptor buffer 
sDefault file extension 


sCfid found the file 
so So read it 


sChecks for error 
jcode 0503H 


sWrons one 


jadds up to 8 

sNo Sood! 

#Set up to get input 
sfrom the consol 

5 UMPC 

5UMSP 


+ Additional inruts Jump to here 


Cinb 


Ifern 


JAN/FEB 1982 


CALL WHO 
PUSH H 

LHLD TMStack 
MOU MxA 

POP H 

RET 


sWe’re inputting from 
sthe consol 

sWhere it soes 

sPut it in 

3 VMSP 


0B CRe’The inrut file’’s empty,’ 


3834 
3838 
383C 
3840 
3844 
3848 
384C 
3850 
3854 
3858 
385C 
3860 
3B64 
3868 
386C 
3B6F 
3873 
3877 
3878 
387F 
3883 
3837 
3888 


asec 


388F 
3890 
3892 
3895 
3896 
3897 
3899 
389R 
389C 
389E 
389F 
3B8A0 
38A3 
38AS 
3BA6 
38A7 
38A8 
3BAP 
38AA 
38AD 
380 
3883 
38B6 
38B9 
38BA 
S8RR 


38BC 
38BD 
3BBE 
38C1 
38C4 
38C5 
38C6 
38C9 
38CA 
38CB 
38CE 
38CF 
38n0 
38D3 
3804 
3817 
388 
Senge 


380A 
38nL 
S80E 
38nF 
38E2 
38E3 


3BE6 
3BE9 


38EC 
S8En 
38F0 
38F3 
38F6 
38F7 
38FB 
38FB 
38FC 
S8FF 
3900 
3901 
3903 
3906 
3907 
3909 
390C 
3900 
SIDE 
3911 


3914 
3918 
391C 
3920 
3924 
3928 
392C 
3930 


20696E70 
75742066 
696C6527 
73206560 
7074792E 
00576861 
74277320 
74686520 
636F6E74 
696E7561 
74696F SE 
2066696C 
65277320 
6E616065 
3F2000 
57686174 
27732074 
68652069 
6E707574 
20666976C 
65206E61 
60653F 20 
90 


21CK20 


7E 
E607 
326032 
23 


C2A538 
216733 
226532 
218C38 
22EB35 
ci 
El 
c9 


ES 
cs 
2A6532 
116733 


70 


2A6332 
7C 
B7 
C2EC38 


BS 
C2EC38 


213038 
C30438 


ni 
D2BE38 
C30FO4 


57686174 
27732074 
6865206F 
75747975 
74206669 
6C65206E 
6160653F 
2000 


TE CRy’What’’s the continuation file’’s name? ’ +9 


Ifer 


IFR2 


CIFR 


RD1 


RD2 


RDS 


Ofer 


DR ’ 


LXxI 


MOV 
ANI 
STA 
INX 
MOV 
ANI 
ALI 
MOV 
YI 
DAL 


What’’s the 


H»yFILE 


AsM 
7 
IFD 


XCHG 


LXI 
NVI 


Hs IFA 
Cr4 


DAX 0 


Lt 

MOV 
INX 
INX 
BCR 
JNZ 
LXI 


MA 

H 

D 

c 

CIFD 

Hy IFB+100H 


SHLD IFP 


LXI 


HyInb 


SHLD IFR 


POP 
POP 
RET 


B 
H 


§ Routine to inrut from 


PUSH H 
PUSH BE 
LHLD IFP 


LXI 
MOV 
CMF 
JNZ 
MOV 
CMP 


By IFB+100H 
AsH 

B 

RD2 

Asl 

E 


JZ RDS 


MOV 
INX 


AM 
H 


SHLD IFP 


POP 


B 


LHLD TMStack 


MOV 
POF 
RET 


MA 
H 


LHLD IFS 


MOV 
ORA 
JNZ 
ORA 
JNZ 


LXI 
JMP 


nex 


AsH 
aé 
RD4 
L 
RD4 


HoIfern 
IFR1 


H 


SHLD IFS 


LXI 


Hy IFB 


SHLD IFP 
PUSH DB 
XCHG 
LHLD IFA 


INX 


H 


SHLD IFA 


BCX 


H 


PUSH B 


MVI 
LDA 
MOV 
MVI 


Brl 
IFD 
CrA 
Ast 


CALL Dio 


POP 
POP 
INC 
IMF 


DR’ 


BR 
Db 
RD. 
Err 


What’’s the 


input file name? ‘50 


sREAD starts here 


strim down to drive no, 
sDrive number 


sFDE flag bute 

strim to file size 
jrpoint rast extension 
#Put into DE 


jAdd to Address in HL 
sFDA Pointer now in DE 
sWhere the addresses go 
54 butes to cory 

sGel the data 

sfrom the FDR (FILE) 
sand copy into the 
sareas for our Dio 
sroutines 

jMore to cory 

Reset the 

sbuffer rointer too 
sFurthur calls to Reader 
sthe reader 

UMPC 

$3 UMSP 


an oren file 


3Save VMSF 
sSave VMPC 


+ VMPC 

jHere’s where 
gwe rut it 
sUMSP 


sGot to set another 
jsector from disk 


#Get disk address 
sjurdate for next time 
jand save 

sback to the one we want 
goings to Preserve B 
sRead 

Drive for input file 
into C 

#1 sector 

sGet it 

srestore 

sthis too 

sNow we can get another byte 


outrut file name? ‘10 


63 


Little-Ada, continued... 


Desk Main/Frame 
Desk Main/Frame 
Ss a Aes CK1 is S Now qatexcneck 
4 2 4 ne sfor the O03 error 
LOW COST & ATTRACTIVE STYLING 3937 82 ADD D 
3938 FEOB cri 8 jadds ur to 8 
¢ MAIN/FRAME INTEGRATED INTO FURNITURE QUALITY DESK seen Saces See tadiy #NG Zoos! 
© ELECTRONICS PACKAGE SLIDE MOUNTED FOR EASY ACCESS 3940 22EN35 SHLD OER: 
¢ SUPPORTS TWO 8" FLOPPY DRIVES FROM SEVERAL MANUFAC 3943 C1 POF B sVMPC 
TURERS (DRIVES NOT INCLUDED) ore GS ron sUNSP 
* 10 SLOT MOTHERBOARD INCLUDES CONNECTORS m 
* POWER SUPPLY FOR DRIVES AND CARDS $ Ouruts Jump to here 
* DESK AND MAIN/FRAME AVAILABLE SEPARATELY - 
: 5 t P' sue’ 
* MATCHING PRINTER DESK AVAILABLE ae ar Coutb eg Tetack sWe’re outputting to the consol 
394A 7E MOV A»M 
394K CI240C CALL WH1 
394E EL POP H 
. 394F C9 RET 
a 3950 =ES OUTB PUSH H sSave VMSP 
A 3951 C5 PUSH B sSave VMPC 
ee 3952 211439 LXI HrOfer jget one from him. 
{ } t 3955 113432 LXI DyFDB sFile descriptor buffer 
f 3958 014941 LXI Br’ AI’ #(°AI’ is default ext) 
f 395B CIDERS4 CALL Gf 
Be! 39SE L2CF34 JNC Out2 
a z 3961 AF XRA A sChecks for error 
3962 83 AnD E scode 0300H or 0503H 
f 3963 C€23239 JNZ CK1 sDoes not return 
} 3966 82 ADD D junless one was 
f' 3967 FEOS crrI 3 #found. Sets CARRY 
? 3969 C20F04 JNZ Err Need to have 
f $a 0300 error 
396C 213432 LXI HreFDB sWe need to save this 
sfor close 
S96F 7E Ane arm J Lowden’ 
3970 E607 trim down to drive no. 
WRITE OR CALL FOR OUR BROCHURE WHICH INCLUDES ay eee a 7 sir die sheng: Uo 
OUR APPLICATION NOTE: ‘BUILDING CHEAP COMPUTERS 3975 23 INX H 
3976 7E MOV AyM sFDE flas byte 
3977 =E61F ANI 1FH strim to file size 
3979 C603 ADI 3 sPpoint Fast extension 
397K SF MOV EsA sPut into DE 
397C 1600 MVI D0 
H : S97E 19 DAL D Add to Addi in HL 
8474 Ave. 296 ¢ Visalia, CA 93277 © (209) 733-9288 397F ER XCHG iFDA neinten AGO Ha DE 
j j 3980 216833 LXI H»OFA sWhere the addresses go 
We accept BankAmericard/Visa and MasterCharge eyan “Ocod NUT Ges aT noted to cece 
3985 1A cOoFD LDAX 0 sGet the date 
3986 77 MOV MrA sfrom the FDB 
3987 23 INX H and cory into the 
3988 13 INX DB jareas for our Dio 
3989 OD BCR C jroutines 
398A C28539 JNZ COFD jMore to cory 
3980 216E33 LXI HsOFB sReset the 
INTERFACE 9-TRACK 3990 226C33 SHLD OFP jbuffer rointer too 
3993 219039 LXI H»Outb scharacters thru 
TAPE DRIVES 3996 22EN35 SHLD OFR 
3999 Ci POP B 5 VMPC 
With the DTI — DMA 378 pe me 


Tape-Unit Interface F . : 
§ Routine to outrut to an oren file 


e Transfers data via DMA $ thru calls to Outb 
up to 200K bytes 


3990 FS Outb PUSH PSW sFor writing 
per second 3990 C5 PUSH B 
¢ Allows full control over 399E 05 PUSH Il 
dri ; 399F ES PUSH H 

all tape-drive functions 39A0 216400 LXI HyIoret 

39A3 ES PUSH H 

39A4 2A3232 LHLD TMStack sGet the cher 
39A7 JE MOV ArM 


NUMBER-CRUNCHING ; si ethe est of, shits is celted as 8 subroutine for 
SOFTWARE 5-10 X's 4 sfilling ur the last sector w zeros also, 


39AB 2A6C33 Store LHLD OFF 


AND MORE . @ tease Z9AR 77 ov HA jput char in buffer 


ee S9AC 116E34 
= Z9AF 1A LAX B 
With the FMP org 39ar 16 EDAX 
Fast Math Processor Y 39R1 C2R639 JNZ Store1 
- atta 39R4 30 DCR A sWe’ve been had! 
e Kit or assembled 39R5 12 STAX DD ia 
© 32-bit floating point operations Bore ieeanas, ev enes ates en buap pointer 
for arith., trig., exponential, etc. functions 39EBA 116E33 LXI D,OFB 
Py hi A : A ‘ . : 39RD 25 BCR H 
Or 64-bit floating point operations for arithmetic functions 3ORE 7C HOV AsH 
39BF BA CMP D 
39C0 CO RNZ 
Both the DTI and FMP meet the IEEE S-100 geet 70 MOV ayL 
standard. Software is available. 3963 Co RNZ 
For further information contact: Pointer now Points at OFB so do BIO. 
A MEMBER OF THE SPC GROUP 39C4 226C33 SHLD) OFP $DE roints at OFB 
SPC TECHNOLOGIES, INC. 39C7 + 2A6A33 LHLD OFS sNumber of sectors 
39CA 23 INX H sOne more 
7 39CK 226A33 SHLD OFS 
P.O. Box 248, Arlington, VA 22210 39CE 2A6833 LHLD OFA sDisk address 
3901 23 INX H sUr date for next time 
(703) 841-3632 3912 226833 SHLD OFA 
3905 2k DCX H sHere’s where we write 


MICROSYSTEMS 


3906 
399 
390A 
39DC 
SIDE 
S9E1 
S9E4 


39ES 
S9E6 
39E7 


SPEA 
39ER 
39EE 


39F1 
39F3 
39F5S 
39F8 
39FB 


S9FE 
BA01 
3A02 
BA04 
BANS 
3A07 
3A09 
SAA 
3AOB 
SA0E 
BAOF 
3A10 
3A11 
3A12 
3A1S 
3A16 
3A18 
SAL? 


3A1B 
SALE 
3A21 
3A22 
SA25 
3A28 
3A2B 
3A2C 
3a2n 


SA2E 
SA2F 


SA2F 
3A32 
3A35 
3Az8 
3A3A 
SASL 
SA3ZE 
3A40 
3A43 


3A46 


3A49 
3A4B 
BASE 
3AS1 
3AS4 
3AS5 
3A5S7 
3A58 
3AS9 
3ASA 
3ASC 
SASE 
SASF 
3A61 
3A62 
3A63 
3A64 
3A65 
SA66 
SA69 
3A6A 
3A6C 
3A6D 
SAGE 
3A71 


Error 


3A6733 


3EO1 
CLO604 
DAOFO4 
cy 


LDA OFD 


MoV 
MVI 
MVI 
CAL 
Jc 

RET 


CrA 
Brd 
Art 
L Dio 
Err 


sDrive 
Drive noe 
sWrite 

sone sector 


+ Routines for closing the file 


ES TURNOFF 


cS 
SAGES4 


B7 
CA213A 
3A6C33 Fill 
FE6E 

3E00 

CAFES? 

CLA839 

C3EE39 


213532 Closel 


CDDD34 

DAOFO4 

AF TO1 
326E34 
215039 
22ED35 
ci 

El 

cy 


Outi 


Origin 
80 Origin 


Psamaddr 


PUS 
PUS 
LDA 


ORA 


JZ 
LDA 


CPI OFB AND OFFH 


MVI 
JZ 


HH 
HB 
Flas 


ry 
To1 
OFF 


Ar0 
Closel 


CALL Store 


JMP 


LXI 
MoV 
ANI 
ADI 
MoV 
MVI 
BAD 
XCH 
LHL 
XCH 
MOV 
INX 
MoV 
LXxI 
mov 
ANI 
MoV 
MVI 


Fill 


Hs FDBti 
AM 
1FH 

5 

EsA 
DO 
B 

G 
D OFS 
G 

MOE 

H 

4D 
Hy FDB 
Arm 
7FH 
HA 
Asi 


CALL Gfi 
JC Err 


XRA 
STA 
LXI 
SHL 
POP 
POP 
RET 


hit 


A 

Flas 
Hy OUTB 
D OFR 

B 

H 


iSave VMSP 

Save VMPC 

See if we’re 
still Virgin. 
i(Also for closing 
sa read file.) 
Not virsin»s 


sfill ur last sector 
swith zeros 


istrim down to length 
Point past ext and FDA 


tjadr of DNS now in DE 


jlensth now updated 


senter new output 
ifile in directory 


sVirsin exit, 


sRestore callings address 
jto open a file 

5 VMPC 

sVMSP 


#LO MACRO instruction 


DB 80H 


EQu 


$ 


3 We load the executable file on tor 
sof the Start code !! 


2A8020 
223232 
210032 
36C9 
2AC720 
7E 
FEOD 
CAD434 
113432 


Start 


01304C 


LHLD MEMTOP 
SHLD TMStack 


LXI 
MVI 


Hs USER 
MsRET 


LHLD CMPTR 


MoV 
crI 


ArM 
cR 


JZ Out3 


LXI 
LXI 


ByFDB 


By4C30H 


Bon’ t START asain 


File descriptor block 
sbuilt by Gfid 

sL/O0 extension for 
default is LO 


5 We’ ve reached the end of the inrut file 
7 SO» we ask for another one 


3E60 
CLDD34 
DANE34 
213432 


C3ES34 


total = ° 


JAN/FEB 1982 


MVI 
CAL 
Jc 

LxI 
MOV 
ANI 
MoV 
INX 
HOV 
ANI 
aAnl 
MOV 
MVI 
DAD 
NOV 
INX 
Moy 
INX 
LDA 
MOV 
NVI 
MOV 
XCHi 
LXI 
JMP 


END 


As60H 
L Gf1 
Out 

H»FDB 

AM 

7 

MA 

H 

Ass 

1FH 

3 

EsA 

D,0 


D 
EoM 
H 
BoM 
H 
FDB 
CoA 


Bri 
AsM 


iG 
D»Fsmaddr 
GETF 


sSomething Wrongs! 


sKill flass 
Move up to FDE flass, 


sKill flass 
sPoint rast ext 


sAddr of FDA 


Drive to C 
sRead 

sDNS 

5FBA to HL 
Where to put it 


Macros defined in this assembly} 


LOCODE add 
call div 
ine lad 
mul nes 
outb rav 
setst setlt 
swar 


bnz br 

hlt inb 
lic mod 
nor not 
ret sete 
sto sub 


Labels defined in this assembly: 


AR1 322C AR2 322E 
BRASE1 34AD Base 3227 
CK1i 3932 CMPTR 2007 
CR 000D Call 353C 
Coutb 3946 DBZ 3206 
BIvo 3699 DIVDL 36AC 
DIVES 36D DIVES 36DF 
Tone 3730 Err O40F 
Fetch 3471 Fill 39EE 
co 3511 GStL 3490 
Gfl 34DD Halt 360B 
IFtt 3260 IFP 3265 
IFR2 388cC IFS 3263 
Ifpr 386F Ifrprn 3830 
Inst 3226 Ioret 0064 
Level 322B Lic 3581 
MULT 364E MULTI 365F 
MULT4 3677 MULTS 3681 
MULT8 3693 MinDE 3482 
Mod3 3720 Mss 040C 
Nott 3747 Not2 3751 
orn 3367 OFP 336C 
OFflg 3470 OUTER 3950 
Out 3408 Outd 3406 
Outs 3404 Outb 399C 
Por 3470 Push 3478 
RDS 38DA RD4 38EC 
SETE1L 37A1 SUBT 36n4 
Set2 37C8 Sete 3788 
Static 3229 Sto 37DF, 
Swap 3757 TEST 371D 
TURNOFF 39ES USER 3200 
Warm 0403 addsub 3616 
lic3 359E lic4 35A2 
orrlic 3569 retn 3768 


ComputerVille 


Diskettes 


TESTED - CERTIFIED - GUARANTEED 


NAME BRANDS 
FEATURING 
@ APPLE 


MEMOREX” 

‘ @TRS 80 
maxell eiBM 
Vv t ti « 


COMPATI 


DRIVES 


HEAD CLEANING KITS 


Printwheels 


QUME AND DIABLO — compaTiBLe 
\N MOST POPULAR FONTS 


PY 
Ribbons 
BRAND NEW 
TOP QUALITY 
FABRIC/FILM 


COMPATIBLE WITH 
HUNDREDS OF PRINTERS 


DIRECT 


ARS 3230 BASE 34C5 
Br 35B9 CIFD 38AS 
coFD 3985 CONV 348C 
Cinb 3826 Closel 39FE 
DBZ1 36EB DBZER 36E5 
DIVD2 36BF DIVDS 36CB 
DIVD7 36B9 Dio 0406 
FOB 3234 FILE 2DCB 
Flas 346E GETP 34E5 
GstLi 34A2 Cf 34DB 
IFA 3261 IFB 3267 
IFR 3SEB IFRL 3804 
IFflg 346F INB 37FF 
Inb 38BC Ine 37F6 
Jtbl 35CE Lad 352A 
Licl 358F MEMTOP 2180 
MULT2 366B MULT3 3672 
MULT6 3686 MULT7 3690 
Mod 36F2 Mod1 3709 
Nes 3736 Not 373F 
OFA 3368 OFB 336E 
OFR 3SED OFS 336A 
Ofrr 3914 Origin 3A2E 
Outi 3A25 Out2 34CF 
Ovr to 0412 Psmaddr 3A2F 
RD1 38BE RD2 38CE 
Rav 37CB Ret 0528 
SUBTR 3715 Seti 37B9 
Setls 37A8 Start 3A2F 
Store 39A8 Storel 39B6 
TMStack 3232 TO1 3A21 
WHO 0C20 WH1 0C24 
branch 35A6 lic2 359B 
muldiv 3620 opr ‘s 


SHOP BY PHONE 
IMMEDIATE DELIVERY 
Toll Free 800-258-1551 


N NEW HAMPSHIRE CALL COLLECT 880-1980 


©1981 
Computer Products 
Unlimited, Inc 
GENERAL OFFICES 
COLUMBIA DRIVE 
AMHERST, NH 03031 
DEALER INQUIRIES 
WELCOME 


BLE 


@ ALL OTHER 
5 1/4" AND 8" 


STORAGE SYSTEMS 


Paper 
ALL SIZES, 
COLORS. 
WEIGHTS 
SHIPPED 


ANYWHERE 
FROM 


OUR REGIONAL 


WAREHOUSES 
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Use Your Computer To 
Build A Computer 


by Jim & Gary Gilbreath 


Using a sort program and a program written in Pascal MT* 
to help construct a wire-wrap board. 


The commercial world of hardware design has tools for 
logic synthesis, translation of logic equations into TTL 
logic, timing simulation, PC board layout, wiring list 
generation, and production control. These tools run on 
large computers, and cost from $5,000 up for software 
licenses (mostly up). 

For the small electronics business and the hobbyist, 
these tools are more elaborate than necessary, as well as 
too expensive, since even dial-up time-sharing firms charge 
more for using these programs than the cost of parts for 
building the first model. 

The tool needed most is an automated way to determine 
and document how things are hooked up—a wire list, in 
other words. This is useful not only for wrapped-wire 
construction, but also as an aid for PC board layout and 
error finding. 

We are the authors of Wiremaster, a Z-80 CP/M program 
which does many things in aid of PC layout and wire-wrap 
construction. It dawned on us while designing and coding 
Wiremaster that the most basic help for wrapped-wire 
and PC board construction could be easily had without a 
special program if an ordinary external file-sorting routine 
is available. A show and tell session one evening at the 
local S-100 Innovators group got an appreciative reception, 
so we decided to write an article about these simple 
techniques. 

We aren't giving away our Wiremaster secrets, but if 
you have a microcomputer with a disk-based external 
sort routine, you can use it as a tool to aid you in doing 
some of the things the industrial world does more 
automatically. The technique to be described does a lot 
less than Wiremaster, but can be highly useful in PC 
layout, error finding, board wiring, and documentation 
control. Assuming you already have a text editor and a 
sort program which simply sorts lines into alphabetic 
order, you won't have to do any programming for the 
basic method. If you want to get a bit more automatic, you 
can utilize the program we provide here either directly or 
by translating into your favorite language. 


Jim & Gary Gilbreath, 7266 Courtney Drive, San Diego, CA 92111. 
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How To Do It 

The first step is to draw the schematic, making sure you 
have labeled pin numbers for every IC, connector, and 
discrete component. The microcomputer can’t help you 
much there. Don’t bother to draw all the interconnecting 
lines for bussed components, just be sure you know the 
name of signal which drives every pin. 

Notice that your schematic (and all others, really) is 
just a pictorial layout of components, and how they are 
connected. Notice that each component has a name 
(e.g., IC2) and a type (e.g., 7474). 

Each component also has input and output connections 
which we call pins, since this is the usual case with TTL 
devices. Each pin has a number, which is usually one or 
two digits, but which could also be alphabetic, such as 
found on many connectors. 

Consider also that the lines which connect the pins 
together could be given a name, preferably the name of 
the signal that drives that particular collection of pins. We 
use the term network to mean all the places that a signal 
goes. For example, the network named DELAYEDCLK in 
Figure 1 originates on pin 12 of IC1 and goes to IC4 pin 1, 
and IC4 pin 4. So, if we have a simple list of signal names 
and the pins they connect to in the form 


SIGNALNAME SOCKET PIN (one pin per line) 
SIGNALNAME SOCKET PIN 
SIGNALNAME SOCKET PIN 


and then run this file through our sort program, the result 
will be that all the pins having the same signal on them 
will be grouped together and, PRESTO!, we have produced 
an elementary network list, from which we can wire, error 
check, and help layout a PCB. 

You can then use your screen editor to add separating 
blank lines, move networks around, and otherwise beautify 
the output. 

Errors can be detected by looking for networks which 
have only one pin, or places where the same pin has been 
re-used (perhaps you can write a program to do these for 
you). 

For wire-wrap, you can wire the board directly from this 
network listing. A wire will go from the first pin to the 
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second (at level one), another will go from the second pin 
to the third pin (at level two), the next will go from the 
third pin to the fourth pin (at level one), etc, until the last 
wire winds up on the last pin. It is best to do all the level 
one wires first, then the level two. 

For PC layout, the same network listing gives you a 
picture of all the points on the board that must be connected 
by track, and provides a checklist to make sure the layout 
is correct before making that expensive prototype. 

Two techniques will be described in detail. The first is 
used if you have only a sort routine, and the second is 
used if you have implemented the program given in this 
article for processing a more convenient input language. 


The Simple Method 

The first step is to translate the schematic into an input 
pinlist. This is done by building a text file where every line 
represents a pin and the name of the signal on it. The 
format described above is satisfactory, the main thing is 
that the signal name must be given first so the sort routine 
can group the signals together. 

The easiest way to do this is to get a copy of the 
schematic you can mark up, and check off each pin as 
you progress around each IC. Write a line in the above 
format for each pin (in any order). If you can get someone 
else to type the information into the computer while you 
read it off the drawing, it goes quickly. 

Signal names should be descriptive of the function 
being performed, but may be any string of characters at 
all, just so long as it is not the same as any other signal 
name in the circuit. If you get tired of inventing names for 
nondescript little gates, you can always backslide into 
something like IC5PIN32 as a signal name (if that’s the 
pin that drives the network), but names like LATCH-BIT-5 
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1C4 3 Phase A * 
74LS00 


6 Phase B* 


Table 4: /nput Pinlist Table 2: Output from 


Sort Program 


-ICl 
«C1 
-ICl 
.ICl 
-ICl1 11 
-ICl 10 


4MHZ .IC3 5 
4MHZ .IC4 2 
4MHZ* .IC3 2 
4MHZ* .IC3 6 
4MHZ* .IC4 5 


8MHZ .IC1 5 

"tcl 13 8MHZ .IC3 3 
DELAYEDCLK .ICl1 12 DELA .ICl 6 
8MHZ .IC3 3 DELA .ICl 9 


4MHZ* .IC3 2 
4MHZ .IC3 5 
4MHZ* .IC3 6 
vec .Ic3 1 
vec .IC3 4 


DELAYEDCLK .IC1l 12 
DELAYEDCLK .IC4 1 
DELAYEDCLK ,IC4 4 
DELB .ICl 11 
DELB .ICl 8 
DELC .ICl 10 
DELC .ICl 13 


DELAYEDCLK .IC4 1 
PHASEA* .IC4 3 
4MHZ .IC4 2 


4MHZ* .1C4 5 pak Ko ; 
DELAYEDCLK .IC4 4 GND |1C4 7 
PHASEB* .IC4 6 GND .J1 4 
vec .J1 PHASEA* .IC4 3 
PHASEA*, PHASEA*. Jl 2 
eae . PHASEB* .IC4 6 
GHD a1 PHASEB* .J1 3 
vec .ICl 14 
GND .ICl vec .IC3 1 
GND .IC3 vec .IC3 4 
vec .IC4 vcc .1C4 14 


GND .IC4 


vec .J1 1 


are more descriptive and much easier to handle later 
when you want to update the circuit. Table 1 is an input 
pinlist for the circuit of Figure 1. The sorted output is 
shown in Table 2. 


The Better Way 
You have probably noticed by now (especially if you 
have tried a sample case) that typing the socket name 
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Use Your Computer, continued... 

over and over agains is a real bore. So let's invent a 
“language” that makes input a bit easier, and let aprogram 
process it to produce a file that the sort program can use 
as before. 

The format we like to use is shown by the example 
below: 

-IC3 =74LS74 
1 vec, 3 8MHZ, 5 4MHZ, 6 4MHZ*, 
4 vcc, 14 VCC, 7 GND, 

The key points are that pins and signal names are 
grouped as pairs and separated by commas, that the 
socket location begins with a period, and that the 
component type begins with an equal sign. A pinlist in 
this format for the circuit of Figure 1 is given in Table 3. 

A program written in Pascal MT+ is provided that will 
process a file of this format, and produce three output 
files containing a list of all the components (.IC), syntax 
errors encountered (.ERR), and file of parsed output in 
the form needed for sorting by a simple alphabetic sort 
program (.PAR). If you don’t have Pascal MT+, you can 
easily translate the program into any of a wide variety of 
other languages (even Basic). 

The program stops far short of the calculated wire 
lengths, minimization of wiring, error detection, layout 
aids, and pretty outputs that Wiremaster provides. But it 
is useful, and you can't beat the price. You could write a 
similar program which takes its input from the sorted file 
and produces a from-to wiring list and a pictorial network 
map. 

Table 4 shows the parser program's output, consisting 
of parts list, and pinlist ready for sorting to produce the 
network list. Table 5 is the final output from the sort 


Table 4: Output from 
Parser Program 


Parts List (file.IC) 


- IC1=74LS04 
«IC3=7474 
- 1C4=74LS00 


.J1=CONNECTOR pues 


Table 5: Output from Sort Program (Network Listing) 


4MHZ .IC3 5 
4MHZ .IC4 2 


4MHzZ* .IC3 2 
4MHzZ* .IC3 6 
-IC4 5 


Table 3: /nput Language 


.ICl =74L804 
5 8MHZ, 6 DELA, 9 DELA, 8 DELB, 11 DELB, 
10 DELC, 13 DELC, 12 DELAYEDCLK, 14 VCC, 
7 GND, 


=7474 
3 8MHZ, 2 4MHz*, 5 4MHZ, 6 4MHZ*, 
1 vcc, 4 VCC, 14 VCC, 7 GND, 


=74LS00 
1 DELAYEDCLK, 3 PHASEA*, 2 4MHZ, 
5 4MHZ*, 4 DELAYEDCLK, 6 PHASEB*, 14 VCC, 
7 GND, 


-J1 =CONNECTOR 
1 VCC, 2 PHASEA*, 3 PHASEB*, 4 GND, 


program, with annotations to show how the wiring is done 
for networks with 2, 3, 4, and 5 pins. 

For such a small circuit as this example, the effort may 
outweigh the benefits. But on projects of ten IC’s or 
more, these techniques will save a great amount of time, 
reduce errors, and produce a well-documented product. 


The Sort Program 

For a circuit of 50 IC’s, such as a CPU board or disk 
controller, the files will be much larger than computer 
memory, and that’s why an “external” sort program is 
required. If you don't have one and don't want to buy one, 
we suggest reading Software Tools by Kernighan and 
Plauger (Addison-Wesley, 1976) for a good explanation 
of how they work and for examples written in nicely 
structured code. Or send us an eight inch CP/M diskette 
(with return postage) and we'll give you one of ours. ® 


t4 


Parsed Input (file.PAR) 8MHZ .IC3 3 
8MHZ .ICl 5 8MHz .ICl 5 
DELA .ICl 6 DELA .ICl 6 
DELA .ICl 9 DELA ,ICl 9 


DELB .ICl 8 
DELB .IC1 11 
DELC .ICl 10 
DELC .ICl 13 
DELAYEDCLK .ICl 12 
vec .ICl 14 


DELAYEDCLK .IC1 als 
DELAYEDCLK .IC4 1 


DELAYEDCLK .IC4 4 -—_l2 


DELB .ICl1 11 


tf 


GND .ICl 7 DELB .ICl 8 
8MHZ .IC3 3 

4MHZ* .IC3 2 DELC .IC1 10 
4MHZ .IC3 5 DELC .ICl 13 
4MHZ* .IC3 6 

vee .IC3 2 GND .ICl 7 
vec .IC3 4 GND .IC3 7 
vec .IC3 14 GND .IC4 7 
GND ,1IC3 7 GND .J1 4 


DELAYEDCLK .IC4 1 
PHASEA* .IC4 3 
4MHZ .IC4 2 

4MHZ* .IC4 5 
DELAYEDCLK .IC4 4 
PHASEB* .IC4 6 


PHASEA* .1C4 $7: 

PHASEA* .J1 2 ba z 

PHASEB* .IC4 6 <—, F 

PHASEB* .J1 3 . 


vec ,ICl 14<4, 

vec .IC4 14 vec .1ICc3 1 So: 

GND :1C4 7 vec 11c3 4 ca 

vec .J1 1 vec .IC4 14 Py ; < 
PHASEA* .J1 2 vec 131 1 


PHASEB* .J1 3 
GND .J1 4 
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WIREMASTER 


A COMPILER FOR HARDWARE 


@ WIREMASTER is a software tool to aid in the design, layout, and construction of 
electronic hardware. Although intended primarily for wire wrap, it is also highly useful in 
the layout, error checking, and trouble-shooting of PC boards. 


@ Inputs are easily derived directly from the schematic diagram and fed to 
WIREMASTER in a CP/M® text file. Outputs include a network map that graphically 
shows all pins and wires (no plotter required), a wire list sorted by lengths and levels, a 
parts list, signal and pin cross-references, and wrap count and continuity checklists 
which ensure a perfect job. 


@ WIREMASTER checks for syntax errors, wires that go nowhere, and duplicated pins. 
Network lengths are minimized, and wire lengths are calculated and sorted in 
descending order so that the shorter wires on top hold down the longer wires beneath 
for a neat wiring job. 


@ The resulting information is then used for wiring, PC board layouts, error-checking, 
component stuffing, and system debugging. This makes a complete and easily updated 
documentation package. Although it runs on small computers, WIREMASTER can 
handle large projects. 


@® The new WIREMASTER Version 3.11 features wire and track minimization, and 
includes CHANGEMASTER, a new program which precisely documents all differences 
between two versions of a board. 


@ CHANGEMASTER eliminates the confusion and loss of control caused by changes 
to a board during debugging and modification. It outputs a map of all networks which 
have been added, deleted, or modified, and automatically generates REMOVE and ADD 
lists so an old board can easily be brought into exact conformance with the latest design. 


@ WIREMASTER runs on any Z80® CP/M system of 47K or larger, including S-100 
systems, TRS-80® Model Il, Osborne, and Apple IlI® with SoftCard® . The diskette also 
includes a SORT utility, a pagination and multi-column printing program, and FIX, a 
program which finds all bad spots on a disk, tells you which files they are in, places the 
bad sectors ina single file, and recovers erased files. 


Whip your wire wrap 
and P.C. layout 


WIREMASTER plus CHANGEMASTER. . . $200 problems with 
Manual only.................. 0a ee $ 15 WIREMASTER 
Update to 3.11 plus CHANGEMASTER.. $ 50 
Update to: 3.04 OM Wives & mow sarees areas s $ 15 
Calif. residents add 6% sales tax 
ai anal AFTERTHOUGHT ENGINEERING 


NO CHARGE CARDS 


7266 Courtney Drive 
San Diego, California 92111 
(714) 279-2868 


Use Your Computer, Continued. . . eens 


PROGRAM PARSE; 


Program to process a CP/M file in the form: 


-SOCKET =ICTYPE 
PIN-NO SIGNAL, PIN-NO SIGNAL, 
PIN-NO SIGNAL, ETC 


If not supplied on the command line, the program asks for the 
input file name. It then asks for an output base file name, and 
produces 3 output files, named BASE.ERR, BASE.IC, and BASE.PAR, 
containing error messages, parts list, and parsed signal-pin list, 
respectively, The .PAR file, when sorted into alphabetical order, 
becomes a network list which is useful for wire-wrap, PC layout, 
error checking, and documentation. 


CONST 
CPM_BUF_ADDR = $80; {address of CP/M command line} 

VAR 
ERROR : BOOLEAN; 
RESULT: INTEGER; 
INNAME, file of input data} 
OUTNAME : STRING; base file name for output info} 
CPM_CMD_LINE : STRING[128]; {place to get input file name} 
INFILE : TEXT; where data comes from} 
ERRFILE: TEXT; where errors go} 
ICFILE : TEXT; ‘where parts list goes} 
PARSEFILE : TEXT; where parsed output goes} 
LINENUM : INTEGER; {keeps track of line numbers on input file} 
TERM : BYTE; {what terminated each word} 
START_OF_WORD, chars that words can begin with} 
END_OF_WORD : SET OF CHAR; chars that can end words legally} 
WORD : STRING; where getword puts the word it got} 
SOCKET, where socket name goes} 
Ics, string to save socket and ic type} 
PINNAME : STRING; so it is 


EXTERNAL PROCEDURE @HLT; {so can exit easily from the deep} 
PROCEDURE INITFILES; 
VAR 
P 3: “BYTE; 
PROCEDURE ERR_CHK (FILENAME:STRING) ; 
BEGIN 
IF IORESULT = 255 THEN 
BEGIN 
WRITELN(“*Unable to open: *,FILENAME) ; 
@HLT 
END 
END; 


BEGIN 
P := CPM _BUF_ADDR; 
MOVE (P*,CPM_CMD_LINE,SIZEOF (CPM_CMD_LINE) ); get what user typed} 
IF LENGTH(CPM_CMD_ LINE) <> 0 THEN user specified input} 
BEGIN 
WRITELN(“Input file is: *,CPM_CMD_LINE); 
INNAME := CPM_CMD_LINE 
END 
ELSE 
BEGIN 
WRITE(“Input file name? ~); 
READLN ( INNAME) ; 
IF LENGTH (INNAME) 
@HLT; 
END; 
ASSIGN (INFILE, INNAME) ; 
RESET (INFILE) ; 
ERR_CHK ( INNAME) ; 


{must ask for input file} 


= 0 THEN 


WRITELN; 

WRITE(“Base name of output files: ~); 
READLN (OUTNAME) ; 

ASSIGN (ERRFILE,CONCAT(OUTNAME,”.ERR“)); 
REWRITE (ERRFILE) ; 

ERR_CHK (CONCAT (OUTNAME, ~. ERR“) ) ; 


{ask for base output file} 


{assign an error file} 


ASSIGN (ICFILE,CONCAT (OUTNAME, “.IC“)); 
REWRITE (ICPILE) ; 
ERR_CHK (CONCAT (OUTNAME, “.1IC“)); 


{assign a parts list file} 


ASSIGN (PARSEFILE , CONCAT (OUTNAME, “. PAR“) ) ; 
REWRITE (PARSEFILE) ; 
ERR_CHK (CONCAT (OUTNAME, “.PAR*)) ; 


{assign a file for main output} 


END; 

PROCEDURE INITSETS; 

BEGIN 
START_OF_WORD [CHR(0)..CHR(255)] - [CHR(13),CHR(9),° “]; 
END_OF_WORD (CHR(13) , ° *~ , CBR(9) , “se J? 

END; 


PROCEDURE CHECK _FOR_EOLN; 
BEGIN 
IF EOLN(INFILE) THEN 
LINENUM := LINENUM + 1 
END; 


{gets next word into global string WORD} 


FUNCTION GETWORD: BYTE; 
VAR 
I: INTEGER; 
BEGIN 
WHILE (NOT(INFILE* IN 
BEGIN 
CHECK _FOR_EOLN; 
GET (INFILE) ; 
END; 


START_OF_WORD)) AND (NOT EOF(INFILE)) DO 
{pass by spaces, tabs} 


IF EOF(INFILE) THEN 
HANDLE EOF; 


I :2 1; 
REPEAT 
WORD[I] := INFILE*; 
pi ae (a ae 
GET (INFILE) ; 
CHECK_FOR_EOLN; 
UNTIL INFILE* IN END_OF_WORD; 


{assemble the word now} 


{build string} 


IF EOLN(INFILE) THEN 
GETWORD := 13 
ELSE 
GETWORD := INFILE*%; 
GET (INFILE) ; 


{return c/r for end of line} 


{else return termination character} 


WORD[0] := CHR(I-1); {set string length byte} 


END; 


PROCEDURE HANDLE_EOF; 


PROCEDURE CHK_FOR_ERR(name:string) ; 
BEGIN 
IF IORESULT = 255 THEN 
WRITELN(“ERROR in closing ~,name); 
END; 


BEGIN 
WRITELN; 
WRITELN (“Finished“) ; 
WRITELN (ICFILE, ICS) ; 
CLOSE (INFILE, RESULT) ; 
CLOSE (ERRFILE, RESULT) ; 
CHK_FOR_ERR(“Error file“); 
CLOSE (ICFILE, RESULT) ; 
CHK_FOR_ERR(“.IC file); 
CLOSE (PARSEFILE, RESULT) ; 
CHK_FOR_ERR(“.PAR file”); 
@HLT 

END; 


{write last of parts list} 


BEGIN (* MAIN PROGRAM *) 
LINENUM := 1; 
INITFILES; 

INITSETS; 


WHILE TRUE DO 
BEGIN 
REPEAT 
TERM := GETWORD; 


UNTIL WORD[1) = *.7; 


get next word into WORD} 
find first period} 


SOCKET 


:= WORD; save IC socketname} 
Ics := 


WORD; also in another string} 


REPEAT (* UNTIL ERROR *) 
TERM := GETWORD; {read pin name, probably} 


IF WORD(1] = “=* THEN 


ICS := CONCAT(ICS,WORD) {add IC type to socket string} 
ELSE IF WORD[1] = *.* THEN {new socket} 
BEGIN im 
SOCKET := WORD; {save new socket name} 
WRITELN(ICFILE,ICS) ; 
ICS := WORD; {save it here too} 
END 
ELSE 
BEGIN 
IF WORD[1] = *$* THEN {ignore any word beginning with $} 
TERM := GETWORD; 
IF NOT (TERM IN [CHR(9), CHR(13))) THEN 
ERROR := TRUE {pin didnt end in tab, space or c/r} 
ELSE 
BEGIN 
PINNAME := WORD; save pin name} 
TERM := GETWORD; read signal name} 


IF NOT (TERM IN [*,*, CHR(13)]) THEN 
ERROR := TRUE signal name must end in comma or c/r} 
ELSE 
{output completed line of signal, socket, pin} 
WRITELN(PARSEFILE,WORD,~ *,SOCKET,~ ~,PINNAME) 
END 


END 
UNTIL ERROR; 
WRITELN(*Error on line *,LINENUM); 
WRITELN(ERRFILE,“Error on line *,LINENUM); 
ERROR := FALSE {set 
END; 


back to normal for next try} 


END. 
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Plain Talk About Business Computers 


Can a Small Computer 
Really Save You Time? 


Time is Money 


Theophrastus said time was the most 
valuable thing a man could spend. Fifteen 
centuries later Haliburton agreed saying, 
“we reckon hours and minutes to be dollars 
and cents." Today, time is more valuable 
than ever—and more fleeting. 

About the only way to gain time is to use 
it more efficiently and effectively. That's 
where we come in. 

Small Business Computers—by the way, 
the small” refers to computers, not to busi- 
ness—will dramatically increase your effec- 
tiveness and help save you time and money. 
How so? 

You get flagrantly honest evaluations and 
reviews of computers and software. We 
don't just tell you what a program can do; 
we tell you what it doesn’t do, what it does 
poorly, and what it should do for the price. 
If advertisers don't like that, we don't want 
their business, and you're better off without 
them. Fortunately, most companies appre- 
ciate our honesty. In fact, one of our 
reviewers has gained a reputation because 
of the many software houses that have 
incorporated his suggestions into their 
products. We're proud of that. 


Plain Talk 


Small Business Computers explains the 
complexity of today's computerized business 
world without the technical jargon and 
doubletalk that may have held you back 
before. In its easily comprehensible “how- 
to" style, Small Business Computers answers 
your questions while providing the infor- 
mation you need to make some tough 
decisions. As you select, purchase, and 
install your computer system, Sma// Business 
Computers will guide you through each 
step calmly and comfortably—helping you 
to evaluate your computer needs and avoid 
unnecessary pitfalls. AS you use your 
computer, be it mini or micro, Sma// Business 
Computers will be there to help you do so 
efficiently and with confidence while inform- 
ing you of the latest developments and 
future possibilities of computers in busi- 
ness. 


For Example 


You have just purchased a mailing list 
program. Everything is fine until the file 
has to be sorted by zip code. If the program 
has that capability, all is well. If not, you 
have a big problem. If you had just invested 
a few hours reading Smal/ Business Com- 
puters, you would have known what func- 
tions to look for before buying the program; 
you would have known how to plan for 
future needs. That's just one example. 
Expand this concept into other areas, other 
programs and systems, and you can see 
what you get for your investment. 


Added Expertise 


As the newest member of the Creative 
Computing family of fine computer publi- 
cations, Small Business Computers will be 
expanding to offer subscribers more valuable 
information than ever before. Creative 
Computing editors and contributors will be 
unleashing their business expertise in Small 
Business Computers through articles, eval- 
uations and applications of particular interest 
to the business person. Creative Computing 
has a reputation of editorial excellence and 
integrity built on unbiased, in-depth product 
evaluations; articles by top thinkers in the 
field; and pragmatic, innovative applica- 
tions. 

One management consulting firm, for 
example, used the Shell-Metzner sort 
described in Creative, and saved $3000 a 
month, and we still receive letters thanking 
us for the hardhitting, candid, evaluation 
of word processing printers we published 
over a year ago, and which, incidentally, 
cost us several advertisers. 

All this knowledge and experience will 
now be available to business people in 
Small Business Computers. 

So, don't let anyone give you that old 
story about how complicated and difficult 
computers are. We don't buy that. Our 
magazine—our whole philosophy—revolves 
around the sharing of honest information. 
If you don't know where to start, we'll put 
you on the right track. If you're already on 
the road, we'll show you the best route. 


Photo courtesy of Alanthus Data Communications Corp. 


For Any Size Business 


Whatever your business— manufacturing 
or banking, retail or research— Small Busi- 
ness Computers will increase your efficiency 
and help save you time and money. 

Subscribe today; Sma// Business Com- 
puters is the best consultant your business 
will ever have. 


Order Today 


To order your subscription to Sma// Business 
Computers send $16.00 for 1 year (6 issues). 
If you prefer, call our toll free number 800- 
631-8112(in N.J. 201-540-0445) to put your 
subscription on your MasterCard, Visa, or 
American Express card. Canadian and other 
foreign surface subscriptions are $21.00 
per year and must be pre-paid. We guarantee 
that you will be completely satisfied or we 
will refund the remaining portion of your 
subscription. 

Send orders to: 


Business Computers 


Magazine 


39 E. Hanover Ave. 
Morris Plains, NJ 07950 
800-631-8112 

(In NJ 201-540-0445) 


DISKINDX File Reorganization Program 


by R.W. Jenks 


A disk index reorganization program for North Star users 


Users of the North Star MDS and Horizon are soon 
pleased with the power of the software provided. The 
system software, including the popular North Star Basic, 
offers many features which are easy to use due to structural 
simplicity. Though a detailed understanding of the workings 
requires a careful and involved inspection of the dis- 
assembled machine language code, enough information 
is provided by North Star about the underlying structure 
to give the user a significant capability for direct access 
and modification. 

This article describes a Basic program to provide the 
function of a disk index reorganizer, a useful utility not 
provided in the system software. 


A Brief Review of the North Star Microdisk 
System 

The North Star floppy disk system is composed of 
from one to three Shugart SA400 single-sided Minifloppy 
disk drives, or from one to four SA450 double-sided 
drives (or compatible equivalents), the disk controller 
board, Disk Operating System (DOS) and utilities. The 
5.25” media is hard-sectored to ten sectors per track, 35 
tracks per side with one block of 256 bytes per sector in 
single density and two blocks (512 bytes) per sector in 
double density. 

The DOS may be accessed either directly through 
disk commands and machine language calls to disk 
routines, or indirectly through utility programs and North 
Star Basic file handling statements (refer to Table 1). 

Files are implemented by first testing a diskette for 
the absence of hard errors, and then initializing the 
diskette to a standard format as follows: for every track, 
approximately 96 microseconds after each sector pulse 
is detected, the DOS writes a preamble of 16 null bytes 
(OOH), followed by a sync byte (OFBH), either 256 or 
512 data bytes of ASCII space (20H) and a cyclic check 
byte. Files may now be created as index entries with the 
data space measured in units of blocks, but allocated as 
an integer number of sectors. The index table takes the 
form of an assumed, unnamed special file preceeding all 
other files. North Star allocates the first four sectors as 
the index. 
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Each index entry is a 16 bytes long, describing one 
autonomous file. Overlapping files can be created which, 
though usable for certain purposes, may cause problems. 
The entry format consists of, in order, eight characters 
for a name, two bytes in machine language format for 
the address of the starting disk block, two bytes for the 
file length in blocks, one byte as a file type/density 
indicator and three bytes for type dependent information. 
The name may have any printable characters except a 
comma or imbedded space. A file may be as long as the 
number of blocks on a disk, less those allocated for the 
index. The type byte reserves bit 7 set as a double 


Table 1: 
Means of accessing diskettes through the North 
Star operating system. 
FUNCTION OPERANDS (some optional) 


DOS COMMANDS 


List diskette index 
Create a disk file 


Outeut devicer drive # 
Namer lensthr start addressr 
density 
Delete an index entry Name 
Set file ture Namer tyuper start address 
Load and run machine Name 

landuade Program 
Load file to memory 
Save a file from memory 
Read blocks from disk 


Namer memory address 

Namey memory address 

Disk address, memory address 
# of blockss density 

Disk address, memory address 
# of blocks, density 

Drive #, density 


Write blocks to disk 


Initialize a diskette 


DOS UTILITIES 


Disk test 
Cory file 


Drive # 

Source file name, destination 
file name 

Source drive #, distination 
drive # 

Drive #, density 


Cory diskette 


co Compact diskette 
COMPACT file space 


MACHINE LANGUAGE ACCESSIBLE DISK ROUTINES 
Default drive #, pointer to file 


name 
(Must follow DLOOK) 


DLOOK Search index for file name 


DWRIT Write directory entry to 
index 

BCOM Command disk activity # of blockss command, drive #+ 

densitur starting memory address, 

starting disk address 

List disk index Drive #, outeut device 

DISK ACCESS THROUGH NORTH STAR BASIC 


Load BASIC wrosram Name 

Save BASIC rrodram Name 

Save BASIC Frodram as a new file Name 

Catalod, list disk index Outrut devicer drive # 

Create a disk file Namer lensthy ture 
DESTROY De te a disk file Name 


FILE ermine tyre/existence of 
k file 
OPEN disk file for access 
CLOSE Close a disk file to further 
access 


READ Read data from a file 

WRITE Write data to a file 

TYP Return the tyre of the next 
data element in the file 


Name 


File numberr turer namer size 
File number 


File numbers rointerr variable list 
File numbers pointer: data list 
File number 
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STILL TIED TO A HOBBYIST ORIENTED O/S ? 
UTILIZE THE FULL POTENTIAL OF YOUR Z-80 BASED SYSTEM 


> 


NEW FROM MICRO-LOGIC 
ZDOS 2.0 


Full software compatibility with CP/M*, 

Supports floppy or hard disks. 

Up to 60% faster Disk I/O. 

Both maskable and non-maskable interrupt capability. 
Designed for networking or stand alone installations. 
Directory linking to other user numbers. 

Fully symbionic printer spooling. 

Unlimited nesting of SUBMIT files. 


Clear, concise user reference manual. 
Full user support service for registered owners. 
Affordable Price. 


MICRO-LOGIC INC. 
P.O. Box 4324 
Hamden, CT 06514 


NW 


ZDOS is a trademark of MICRO-LOGIC INC. 
* CP/M is a trademark of Digital Research. 


More power than CP/M* without losing additional user memory. 


Easy upgrade from CP/M* - use your present BIOS if desired. 


Ss Z MICRO-LOGIC INC 

| i | P.O. Box 4324 

micro.Locic Hamden, CT 06514 

QO Please send further information on ZDOS. 

O Send me ZDOS (manual incl.) Enclosed is my check for $149.95. 
0 Send ZDOS Manual only ($49.95). 


NAME: 


SITEE::.W. 


COMPANY: 


ADDRESS: 


PURCHASING STATUS: O AUTHORIZE 0 RECOMMEND 
MY CURRENT SYSTEM 'CONFIGUATION: 


HARDWARE 


OPERATING SYSTEM: 


Diskindx, continued... 


density flag. The remaining bits may define any of 128 
different file types, although four have predefined mean- 
ings (see Figure 1). 

A file is created by placing a valid file entry into the 
index. Certain operations are assumed by the DOS. First, 
if any unused slots are free the index entry will be assigned 
to the first available slot. Secondly, disk space for the 
data blocks of the file will be allocated after the last disk 
block currently assigned to a file. 


Figure 1: North Star disk index format. 


Track #0 flouble Dens et 


: Black &O 
#0} a 

' Block #1 
Block #2 


Block #4 
Glock #4 
- “plac k 45, 
“Block #6. 


Block #7 
‘ ist Data Klock, 
| Sector #4 ; arco - 
; ! 2nd Data Block 


EACH INDEX BLOCK 
Index Slat #0 
Index Slot #1 


Index Slot #15 


EACH INDEX ENTRY 
2 3 4 Ss 6 7 8 io if 12 #13 


2} N3!t N4i NS! NS! NZ: NG? SLI SMI LLI LHIT/Dtrn 


Name 

Start block address low bute 
Start block address hid bute 
File lendth in blocks low bute 
File lendth in blocks nish bute 
Tyre/Densits byte 

Bit. 7 6 5S % 


Sindtle density 
i Double density 
SAKTS+ZQRTSHLGATAFOAT SA AKT OE DATIETO 
Ture O Lefault file ture 


Tyre 3 BASIC data f 
ASCII space (20H) 


This brings up difficulties which leads to the purpose 
of DISKINDX. 


DISKINDX: File Reorganization 
All is fine when files are set up sequentially. The first 
_index slot takes the first file name entry and the first disk 
blocks after the index are assigned as data space. Fol- 
lowing files are assigned to both successive index slots 
and disk blocks. However, disk use eventually leads to 
file deletions and new file creations. When a file is deleted, 
its blocks are temporarily lost as available storage if they 
were not the last assigned on the disk. The index slot, on 
the other hand, becomes free for a new entry. As new 
files are tacked on, eventually the DOS is unable to find 
space for another file. At this stage disorder prevails. 
There is usually little correlation between the order of a 
file name in the index and its starting disk address; the 
order of files in the index does not correspond to the 
order in which files were set up on the disk; there are 
gaps of unassigned and unused blocks scattered through- 
out. 
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File space can be easily recovered through use of the 
COMPACT utility supplied by North Star. This utility 
recovers disk blocks by moving allocated blocks towards 
the front of the disk while keeping track of new starting 
block addresses and modifying the index entries accord- 
ingly. However, this utility will not recover all the unused 
blocks and does not restore order to the index. The data 
blocks allocated for a Basic program may exceed the 
actual blocks holding program code. Whenever a file is 
NSAVED, the Basic interpreter allocates three extra 
sectors for program expansion. Since the disk index 
format keeps track of superfluous program blocks, these 
blocks may be recovered. 

DISKINDX has the following features: an ability to 
recover unused Basic program blocks through modification 
of the file length bytes of the index entry; an indication 
of available and recoverable disk blocks and location; an 
indication of overlapping files; an easy means of examing 
all 16 bytes of an index entry; the ability to reorganize 
the disk index such that the index entries correspond in 
increasing order with the actual file starting blocks, and 
thus may also indicate correctly the order in which files 
have been created on the disk. 


The Program 
Listing 1 is the DISKINDX program written in Release 
5.2 North Star Basic. The program is not optimized for 


Table 2: A correlation of entry and 
branch line numbers. 


DESTINATION LINE NES WHICH REFERENCE DESTINATION 


L690 
1490 


size and requires over 7000 bytes for operation (single 
density). Size was not considered a limitation. 

The program contains some general purpose outlines 
for implementing direct user modification of disk file 
index entries which the reader might have use of for 
other purposes (such as alphabetizing). The description 
in Listing 2 of the labels used should help in understanding 
the program, which is structured in a loose sort of way 
through function and subroutine calls. Scattered REM 
statements and the entry point and branch line numbers 
in Table 2 will aid the reader if drawing up a flow chart 
would be helpful. The program can be easily modified to 
support a backup index on the same or another disk. 

A word about the output select function. This routine 
modifies the DOS output routines as a means of selecting 
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an outut device. The program should not be run without 
either substituting a RETURN which will disable this 
function, or determining that the actions it will take are 
compatible with your system. An alternate method is to 
add device designators to the applicable print statements, 
as featured in North Star Basic, and modifying the routine 
to change the device designator rather than the soft- 
ware. 


DISKINDX has the following 
features: an ability to recover 
unused Basic program blocks 
through modification of the file 
length bytes of the index entry; an 
indication of available and 
recoverable disk blocks and 
location; an indication of 
overlapping files, and much more. 


Also, run this program initially with a dummy index on 
an unused disk until you are satisfied that the program 
has been copied correctly, that it works reliably and as 
expected. 

Before the program will run, diskettes must have a 
type 3 Basic data file created on them called INDEX 
covering the disk index blocks. This is done by using the 
optional starting block parameter in the CR command, 
and causes no problems other than the possible incon- 
venience of taking one index slot. Modify the constants 
in line 30 if your system is other than single density and 
a 24 line terminal (O disables the line count for printer 
use). 

A diskette may optionally be given a name in the form 
of a file entry of type 4 (modify the program to change 
the type number recognized as a disk name). This will, 
however, reduce by one the number of data files which 
may be created on the disk, but the ability to call up a file 
containing disk use information (as a text file) proves 


~~ —__—___E Listing 1: North Star disk index reorganizing program. 


10 REM “DDIGKINGX" BY RW JENKS 1 5/79? MOD 9/11/81 
20 REM FOR NORTH STAR SOFTWARE RELEASE S.2 AT 1OOH 

30 D1=2 \Li=24 \REM DENSITY, TERMINAL 

40 LINE 79 


SO DIM B1(1S5) vE1$(60) 9S1(64k01 92) yBL$C16"64HN1)D 
60 D=FNO1("T*) 


70) ! CHR (27) 9 "kK" VCHRECLS) » \REM CLEAR SCREEN 
SOROC TA-120 (19200 BAUD) 
80 INPUT "PRINTOUT (Y)?"yRA%  \DeFNL CL) 


90 IF Rig="Y¥" THEN Ir=eFNOUC"F") 

100 INFUT "DRIVE de" ytil& \OeFNL G1) 
110 IF tilde" " THEN Digde"1" 

120 T1i¢="INDEXy "+0146 


130 IF FILE(I1$)=3 THEN 150 \! Ti¢s" NOT ON DISK" NGOTO 100 
140 REM okkKK MAIN 
150 D=FNG2("N") 
140 ¢ L 
Fi=1 THEN INPUT "SHORTEN ALL PROGRAMS TO MINIMUM 


170 
BIZE (S)?" 


$1 ySi6 
D=FNL C1) 


180 
190 IF Si$="S" THEN DeFNG2(S1$) 

200 END 

210 REM debe FUNCTION 

220 REM kK ACCESS WHOLE INDEX» REORDER, SHORTEN 
230 DEF FNG2(M1%) 

240 OPEN #1/I1$ 
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useful in particular applications. One example is a diskette 
devoted to 16 (or 31) twenty-one (22) block long pages of 
text, where the disk use file briefly describes the contents 
of each page. 


Operation 

A sample dialog with the program is shown in Listing 
3. A carriage return alone in response to a prompt bypasses 
without action. The program will select drive one in 
default. Output waits for viewing after a full screen of 
data is printed. The program makes a first pass to display 
the index, shows block use information, reorders the 
entry list and prepares to write a new index when author- 
ized. If there are excess Basic program blocks which 
may be recovered, the program will ask if this should be 
done. Be advised that a positive response will shorten 
the allocation of every program on the disk to recover 
the maximum number blocks. 


Remarks 

| have found this program to be useful for a variety of 
purposes, especially in keeping track of a large number 
of files. When creating new files on diskettes reserved 
for data it is desirable to have the new file entry appear 
at the end of the index so that it does not have to be 
found by looking through 60-odd other entries, and also 
to know the order in which the files were entered, as 
when they are modifications of data in previous files. | 
found that it is preferable to initially allocate a large 
amount of disk space when programming to prevent the 
wasted time of correcting a bad save after additions are 
made. When the development work is done, recovering 
the unused blocks is an easy matter of using DISKINDX 
followed by the COMPACT utility. 

The additions in North Star Release 5.2 were welcome, 
and | expect added software support will continue. Perhaps 
North Star would even see merit in using the ideas of 
DISKINDX as a basis for another machine language 
utility. But why wait? Put DISKINDX in service now. 


Reference 

North Star System Software Manual, SOFT-DOC Re- 
vision 2.1, North Star Computers, Inc., 14440 Catalina 
St., San Leandro, CA 94577. 


250 P1l=0 \S1=0 \S2=0 \S3=0 
260 FOR B1=0 TO 4k0—1 


270 GOSUR 370 

280 [l=FNGI (M1) 

290 NEXT 

300 GOSUR 440 

310 GOSUB S790 

320 CLOSE #34 

330 RETURN O 

340 FN END 

350 REM 4a SUBROUTINE 

360 REM & BLOCK HEADING 

370 ! \=FNL C1) 

380 ! "BLOCK y%21T9 Bly"? ENTRY LABEL" » 

390 1 " ANTIR # SCTRS TYPE Tyre Dern’t Info 
Excess Sctrs" 

400 [l=FNL (1) 

410 RETURN 

420 REM dee SUBROUTINE 

430 REM * BLOCK USE DATA 

440 ! Kb L¢d> 

450 THEN 480 

460 ! * COVER" »S1-S2" SECTOR"»y \Ile=FNSICS1-S2) \! 

COMPACTING DISK" 
470 Dl=FNL(1) 
480 IF $30 THEN 510 
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SWALSASOYOIN 


490 
500 
S10 
520 
530 
540 
S50 
560 
570 
S580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
B40 
870 
880 
B90 
900 
910 
920 
930 
949 
750 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 


! "WILL RECOVER" yS3y" SECTOR"» \D=FNS1(S3) \! " BY SHORTENING PROGRAMS" 


D=FNL(1) \Fi=1 


! 350-S1ls" SECTOR"» \D=FNS1(350-S1) \! " CURRENTLY AVAILABLE FOR STORAGE" 
D=FNL.(1) 
! \De=FNL C1) 
RETURN 
REM ‘#44 SUBROUTINE 
REM kk REORDER INDEX 
! ** ORDERING IN FROGRESS" \D=FNL¢1) 
FOR X1=1 TO 64x01 \IF S1¢(X190)=0 THEN EXIT 600 \NEXT 
REM * SORT/EXCHANGE 
X1=X1~-1 


FOR X2=1 TO Xi-1 
FOR X3=X2+1 TO X1 
IF S1(X391)=S1(X291) THEN 670 
FOR X4=0 TO 2 
S1(0»X4)=G1(X29X4) \S1(X29X4)=S1(X3xX4) \GL(X32X4)=G1009X4) 
NEXT 
NEXT 
NEXT 
REM %* DISPLAY ORDER, UNUSED/OVERLAPPING SECTORS 
$1(091)=0 \S1(072)=0 
FOR X3=#1 TO X1 
1 %6L»S1(X3x0) GLC XBed) » 
N2=G1(Ov1)4+91(0%2)—-S1(X391) 
IF 0220 THEN 750 \IF L2<0 THEN 760 \! \GOTO 780 
!*  QVERLAPPED BY"stl2y \GOTO 770 
!"  PRECEEDED BY A GAP OF "y~Ii2s 
!" SECTOR"» \Q=FNS1(02) \! 
DF NL CL) ; 
S1(Ov 1) =S1(X3v1) \G1C0r2)=S1(X312) 
NEXT 


REM %& CHECK IF IN OR 
FOR X3=1 TO X1 NI S1(X390)> 
! "INDEX CLOSE PACKED & IN 0 

REM & FILL INDEX BUFFER 
FOR X3=1 TO X1 
E1=16*(S10X390)—1) 


3 THEN EXIT 850 \NEXT 
R" \tteeFNL C1) \NRETURN 


HR (B2 ) 


x WRITE INDEX BUF 
TE NEW INDEX (Y)?" +R 
: THEN RETURN 

FOR X3=1 TO Pltx2<1 

WRITE #1 “£X3-1» ASC (B14 0X3» X3)) »NOENUMARK 
NEXT 


$ \t=FNL C1) 


REM &x CLEAN UP ENT OF INDEX 
FOR X3=1 TO X1 
IF S$1¢X3¥0)¢=X1 THEN 1040 
El=16*(S1(X390)~1) 
FOR X2=0 TO 7 \WRITE #1 “EL+X2*&32»NOENDIMARK \NEXT 
NEXT 
! "INDEX REORDERED" \De=FNLC1) 
RETURN 
REM dee FUNCTION 
REM *kxk LINES PRINTED 
DEF FNL¢(L2) 
IF Li=0 THEN RETURN O 


L3*L3+L2 \IF L3<lLi-1 THEN RETURN 13 
L3=0 \INPUT "* “RET’ TO CONTINUE" R2% 
RETURN O 

FN END 


REM = ek FUNCTION 

REM *kk SUFFIX ‘S’ 
DEF FNS1(03) 
IF ABS(D3)<>1 THEN ! "S"» \RETURN D3 
FN END 

REM #4444 FUNCTION 


1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
14600 
1610 
1620 
1630 
1640 
1650 
1660 
1470 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 


REM 2k GET 1 BLOCK OF ENTRIES 
DEF FNGI(M1$) 
1 “#61 y 
FOR E2=1 TO 16 
REM x FILL ENTRY BUFFER 
E3=16kB1+E2 \E1$="* 
FOR Xi=0 TO 7 \READ #1,8B1(X1) \E1$=E1$+CHR$(B1(X1)) \NEXT 
FOR X1=8 TO 15 \READ #1,/8B1(X1) \NEXT 
REM 0k SKIP EMPTY ENTRY 
IF E1$(1v1)=" " THEN 1750 
REM & DECODE PARAMETERS 
F2=0 
N1=256kB1(9)+B1(8) 
N2=256KB1(11)+B1(10) 
N3=B1(12)-128x(D1~1) 
IF N3==0 AND N3<=127 THEN 1380 \F2=1 
N3=N3~SGN(N3)K128 
IF N3<>1 THEN 1400 
N4=256kB1(14)+B1(13) \NS=0 \GOTO 1450 
N4=B1(13) 
IF N3<>2 THEN 1440 
IF NOT(Di=2 AND NOT F2 OR Di=1 AND F2) THEN 1440 
N4=N4/2 \IF N4<>INT(N4) THEN N4=INT(N4+1) 
NS5S=B1(14) 
N6é=B1(15) 
REM * BUILD UP REORDER TABLE/SHORTEN ALLOCATION 
IF Mi$="S" THEN IF N3=2 THEN GOSUB 1810 
P1I=W1t1 \S1(FPiy0)=E3 \S4(P1,1)=N1 \S1(F1,2)=N2 
REM * BUILD UP ENTRY LATA STRING 
E1$=STRO(ES)4" iS" FELS+"y "FSTRS(NL) 4" S "4STROCN2) 
IF NOT F2 THEN 1530 
IF Di=1 THEN E1$=E1$+"D" ELSE E1$=E1$+"S" \! %#5Iy \GOTO 1540 
IF Di=2 THEN E1$=E1$+"D" ELSE E1$=E1$+"S" \! Z#5Iy 
E1$S=E1L$4+"¢"4+STRS(NZ)4"S" 
1 %bTy 
IF N3<=2 THEN 1590 
IF Di=2 THEN IF NOT F2 THEN E1$=E1$+STR$(N4kD1) ELSE 1590 


IF [d=1 THEN IF F2 THEN E1$=E1$+STR&(N4kD01) ELSE 1590 \GOTO 1600 


E1$=E1$4+STRS& (NA) 
E1$=E1$+" 3" 
IF N3=1 THEN 1630 
ELS=ELG+STRECNS D+" 3" 
E1$=E1L$+STR&(NG) "5" 
REM * FRINT ENTRY INFO 
IF N3<>4 THEN 1670 \REM TYPE 4 = DISK NAME 
Ni$=E1$(1%8) \NI“NAMES"y 
! TABRC7) vELhy 
REM x* ACQUIRE BLOCK USE INFO 
IF N3=2 THEN 1700 \! \GOTO 1720 
§$3=S34+N2-N4 \IF N2<N4 THEN ! “USE ERROR» 
IF N2>N4 THEN ! N2-N4 ELSE ! 
D=FNL (1) 
$2=S2+N2 
IF N1itN2>S1 THEN S1=N1+N2 
NEXT 
ee 
RETURN 0 
FN END 
REM 4H SUBROUTINE 
REM 2k SHORTEN FROGRAM ALLOCATION 
IF N42N2 THEN 1830 \IF N4=N2 THEN RETURN 
! "CHECK ENTRY FOR ERROR" \D=FNLC1) \RETURN 
E1L=E3~-1 \WRITE #1 “16XE14+10» &N4yNOENDMARK 
REAL #1 “16XE1+15y a0 \REM ADVANCE FILE POINTER 
N2=N4 
RETURN 
REM 4H FUNCTION 
REM %#&k QUTPUT SELECT DOUBLE DENSITY bOS 
DEF FNOI(O1%) 
IF O01%="T" THEN 1920 \IF O1%<>"F" THEN RETURN 0 
FILL 267395 \FILL 279394 \RETURN 1 \REM OUTPUT TO PRINTER 
FILL 267393 \FILL 27932 \RETURN 0O \REM QUTPUT TQ VOT 
FN END 
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Listing 2: The variables used in DISKINDX. BLOCK 1! ENTRY LAREL ADDR # BLKS  TYFE 


Tyre Dern’t Info Excess Blks 


Ri RISER. wauRe 18 {ALLA » Baas 33 23 33 32% 32% 
Bo Bute BLOCK 2: ENTRY LABEL ADDR # BLKS TYPE Tyre Leen’t Info Excess Blks 
0 Tummy function return value * * “RET’ TO CONTINUE 
ti Disk density BLOCK 3: ENTRY LABEL ADDR # BLKS TYPE Tyre Dern’t Info Excess Blks 
2 Block count difference WILL RECOVER 31 BLOCKS BY COMPACTING DISK 
3 FNS1 ineut variables difference/count WILL RECOVER 20 BLOCKS BY SHORTENING PROGRAMS 
Ei Stert. of entre rointer 1 BLOCK CURRENTLY AVAILABLE FOR STORAGE 
E2 Entry: count X ORDERING IN PROGRESS 
ES Entry order = : 
Fi Excess blocks flag 3 14 
F2 bifferent density flas 4 64 
Li Terminal lines é 134 
L2 Additional lines displayed 9 135 
L3 Total screen lines displayed 100 143 
Ni File starting block address ioe 
N2 Number of file blocks 8 180 
N3 File tyre/density 11 197 
N4 Go address or actual rrogram blocks 13 266 PRECEEDED BY A GAP OF 27 BLOCKS 
NS Tyre derendent information 12 326 
N& Tyre derendent information rb oo PRECEEDED BY A GAP OF 4 BLOCKS 
PL. Strings rointer x °RET’ TO CONTINUE 
Sl Last used block WRITE NEW INDEX (Y)?Y 
§2 Sum of allocated blocks INDEX REORDERED 
$3 Sum of excess blocks SHORTEN ALL PROGRAMS TO MINIMUM SIZE (S)?S 
X1 Sort Pointer BLOCK 0: ENTRY LABEL ADDR ~# BLKS TYPE Tyre Dern’t Info Excess Blks 
X2 Loor variable 1 3INDEX y ot at Se : 323 32% 
x3 Loor variable 2 tbos , at 103 ot 322 323 325 
x4 Array Pointer for exchange 3  tBASIC ’ 143 Sot 13 107523 325 
Bl) Entry buffer 4 ‘%BRANDEST, 643 703 3: 32% 323 327 
S10) Order/block-use array NAME? x faeces et 23 ae a3 ee 325 
. a = y Oe oe ae we ae wer 
Bre bhyae DEE aeas 7 tADTABL » 143: 19% 2t 019) Bt 
8 i#CODE » 1653 2% 23 23 32: 325 
Eig Entry dats string 9 %ERRORTRPy, 1703 4t 23 4% 323 323 
Tilt Index file designator 10 i0.BASC-Ty 1803 13S? 23 153 323 323 
Mit Mode character for shorten program allocation a Pcie gia aed ae = pe eo a 
< ss rd : y 2 : : : : ae 2 
a Bee te siiew 13 $FLOWCHT » 3263 143 23 143 32: 325 
14 SADA » Baas 3 23 33 32: 323 
Ris Resronmse to query 15 ¢%SNGLSTEFy, 347% 2% 1: 69123 323 
R2% Resronse to hold screen BLOCK 1! ENTRY LABEL ADDR # BLKS TYPE Ture Deen’t Info Excess Blks 


$1i%$ Shorten allocation flas 
FNG1L Handle one block of index entries 
FNG2 Handle whole index 


* ‘RET’ TO CONTINUE 
BLOCK 2! ENTRY LABEL ADDR # BLKS TYPE Tyre Dern’t Info Excess Blks 


FNL Keer track of lines printed BLOCK 3% ENTRY LABEL ALOR # BLKS TYPE Tyre Lern’t Info Excess Blks 
FNOL Outeut select WILL RECOVER Si BLOCKS BY COMPACTING DISK 
FNS1. Add pleuralitu suffix 1 BLOCK CURRENTLY AVAILABLE FOR STORAGE 
, * ORDERING IN PROGRESS 
Listing 3: An example of DISKINDxX in use. 1 0) ° 
x 2 4 
PRINTOUT (Y)? 3 14 
DRIVE #32 4 64 
BLOCK 0: ENTRY LABEL ADDR # BLKS TYPE Ture Dern’t Info Excess Blks ‘4 bp 
1 tINDEX ’ oO: : 33 H 323 323 Me ins : 
> snde : ae ne : ae aot oot 7 143 PRECEEDED BY A GAF OF 3 BLOCKS 
S pase | s 143 50! 1: 10752! 55 8 165 PRECEEDED BY A GAF OF 3 BLOCKS 
4 tBRANDEST, bat 70: 33 303 353 325 9 170 PRECEEDED BY A GAP OF 3 BLOCKS 
5 i#CODE » 165% 5! >t 2: 3: 323 3 10 180 PRECEERED BY A GAP OF 6 BLOCKS 
NAME! 6 {P.BASIC » 134! : 4: i 308 325 11 197 PRECEEDED BY A GAP OF 2 BLOCKS 
7 ‘ERRORTRP, 170% 10: 34 Ae Bt 525 é 12 266 PRECEEDED BY A GAF OF 30 BLOCKS 
8 {%0.BASC-Ty 180% 17% 2 iS: 32% 323 2 13-326 : 
9 iDECODE » 4135: : 33 5! 333 393 3 14 344 PRECEEDED BY A GAP OF 4 BLOCKS 
10 {tADTABL » 143: 22% 23 193 323323 3 ge sage or 
11 tLABLTABL 1973 42% 2% 39% 32% 324 3 i 
12 $FLOWCHT » 326: 14% 23 143 32% 323 INDEX CLOSE PACKED & IN ORDER 
13  tDATALT +» 266% 60% 33 60: 32% 323 READY 
14 %SNGLSTEF, 347% 23 1: 69123 325 
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Modification For The Sol-20 


by Jim Spann 


Don't give your Sol to the trash man; a savior is here! 
This simple modification gives the Sol Terminal Compu- 
ter* a new lease on life by moving the VDM* and Solos* 
memory to the Sol’s internal data bus (where it belonged 
anyway), so it no longer interferes with the S-100 
memory address space. Now you can run all those big 
memory programs without having to buy a new compu- 
ter, and still have access to all the Solos utility routines. 
And all old programs will execute properly. 

A minor wiring change and the addition of two inte- 
grated circuits is required to extend the usability of the 
Sol Terminal Computer. This feat is accomplished by the 
use of a memory management flip-flop, controlled by a 
unused output port in the Sol. The parts required are a 
SN74LS74 (flip-flop) and SN7406 (open collector in- 
verter). 

The required circuit changes can be made without 
cutting any printed circuit board traces. The technique of 
hanging the IC pin to be changed outside of the socket 
and soldering a wire to it can save much wear and tear on 
the circuit board (Figure 1). The two chip memory man- 
agement control circuit can be assembled on a small 
vector board and mounted inside the Sol under the key- 
board as shown in Figure 2. 

The following steps refer to the Sol schematics and 
drawings in the Sol manual. Be sure to unplug and remove 
any S-100 boards during these steps. 


*Step 1. Build the custom memory management control 
circuit as shown in figure 3 on a small vector board. Set 
this board to one side. It will be used in a later step. 


eStep 2. (This step moves the display memory data out- 
put signals from the S-100 bus to the Sol’s internal bus.) 
Lift all the output pins of the tri-state |.C.s (see drawing 4) 
U29 and U89 and tie to the internal bus signal INT O—INT 
7, (see drawing 1). The internal bus runs all over the Sol 
mother board; use any handy INT O—INT 7 signals to 
connect to. Be sure to mark-up changes and keep a 
accurate set of prints of your computing system. 


Jim Spann, Box 2061, Livermore, CA 94550. 
* trademark names of Processor Technology Inc. 
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PIN 13 of U89 (74LS367) to “INT 0” PIN 10 of U79 
(74LS253) 

PIN 11 of U89 (74LS367) to “INT 1” PIN 6 of U79 
(74LS253) 

PIN 13 of U29 (74LS367) to “INT 2” PIN 10 of U65 
(74LS253) 

PIN 9 of U29 (74LS367) to “INT 3” PIN 6 of U65 
(74LS253) 

PIN 7 of U29 (74LS367) to “INT 4” PIN 10 of U78 
(74LS253) 

PIN 11 of U29 (74LS367) to “INT 5” PIN 6 of U78 
(74LS253) 

PIN 3 of U29 (74LS367) to “INT 6” PIN 10 of U66 
(74LS253) 

PIN 5 of U29 (74LS367) to “INT 7” PIN 6 of U66 
(74LS253) 


¢Step 3. (This step modifies the control of the internal/ 
external multiplexer (U66, U78, U65, U79—see drawing 
1) to allow the data from the display to get to the proces- 
sor.) 

Lift PIN 2 of U44 (74LSO0) and tie it to PIN 1 of U44. 


Step 4. (This step moves the MWRITE signal of the 
internal RAM, so that it may be controlled by the memory 
management circuit.) 

Lift PIN 9 of U44 (74LS00) and tie to PIN 14 of U46 
(8T30). See drawing 4. 

Lift PIN 13 of U24 (74LS04) and tie to PIN 14 of U46 
(8T30). See drawing 2. 


¢Step 5. At this point the Sol computer should operate 
normally. Plug it in and try some programs that use the 
display; TARGET is a good test program. If the system 
does not work there is a wiring error, so double check 
everything and try again. 


«Step 6. Instep 6 the connection of the memory manage- 
ment circuit board is installed. Mount the memory 
management board and connect the circuit to VCC (+5 
Vdc) and ground. This power comes from the Sol mother 
board. Connect to the following signals to the Sol. See 
figure 2 and drawing 2. 


MICROSYSTEMS 


74LS74 PIN 1 (reset) to (S-100 signal POC) PIN 12 of 
U77. 

74LS74 PIN 3 (clock) to (OUTPUT FCH) PIN 11 of U35. 
74LS74 PIN 2 (data) to (S-100 signal DO) PIN 2 of U80. 
7406 PIN 8 to PIN 3 of U34. 

7406 PIN 1 and PIN 13 to PIN 6 of U23. 

7406 PIN 2 to (S-100 signal MWRITE) PIN 11 of U50. 
7406 PIN 12 to (S-100 signal FRDY) PIN 1 of U49. 


This completes the modification of the Sol. 


*Step 7. The system should operate normally; retest as in 
step 5. If there are any problems check the memory 
management flip-flop to make sure the Power On Clear 
(POC) resets it to a low level at PIN 5. 


Theory of Operation 

When the computer is first turned on the memory con- 
trol flip-flop is cleared via the Power-On-Clear signal 
(POC). This signal is also generated when a restart is 
performed (holding both the upper case and repeat keys 
down). The Sol will operate normally with the Solos/dis- 
play RAM/ROM memory block enabled. 

The memory control flip-flop controls accesses (reads/ 
writes) to the COOO—CFFF hex memory block. This block 


4K Solos/display RAM/ROM or a 4K RAM (can be part of 
a larger memory plane) memory on the S-100 bus. In 
other words the memory control flip-flop switches in the 
internal Solos memory or the external S-100 memory. 


Operation 

Software control of the memory management flip-flop 
is accomplished via the output instruction OUT FC and 
bit 0. If bit O is set to a zero (0) then this is normal Sol 
operation. If bit 1 is set to a one this enables the memory 
on the S-100 bus. 

The programming example illustrates how to have a 
full 65K RAM system and use the Solos utilities with 
CP/M . The cold boot switches off the internal memory 
and turns on all RAM external memory. 


Software Rules 

These rules should be kept in mind when using this 
system. 

1) Do not switch to the internal memory (Solos) if the 
STACK is in the COOO—CFFF address area. Save the 
stack first, or the program will not be able to find its way 
back. 

2) Do not switch to the internal memory from insided 
the COOO—CFFF address area. @ 


Memory Management 
er Vector Board 
Y Stick-Mounts @ 

\ m Adhesives 
\ Mount under KB Fo 


\ on top of Mother Board 


SOL 
Hanging a pin out. KB 
Figure 1. Figure 2. 
SN74LS74 SN7406 
+5VDC 
U80-2 U34-3 
(DO) 
U35-11 
(OUT FC) U50-11 
(MWRITE) 
U49-1 
(FRDY) 
U77-12 U23-6 
(POC) 
U46-14 9 U50-12 
-- fap 
Figure 3. 
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SW3LSASOXDIN 


The following is an example of a CP/M interface using the 
Management modification. 


i 

memsw equ 
solon equ 
solof equ 


OFCH 
0 


not solon and OFFH 


;Output that control the memory 


;solos on, normal operation 
;enables all ram 


punch: mov bic :for adout 
mvi apt ;Serial port 
1lxi h,aout 
jmp memctrl ;Send it to solos 
MEMCTRL 
memory control 
26 nov 79 


This program maps the solos area (C000 - CFFF) on & off. 

To allow for 64k byte operation of the Sol and still have 
access to the Solos software contain in the COO0-CFFF area 
which includes the VDM, the following procedure is required. 


On Clear enables the Solos area so the first thing 


the boot program should do is turn off the Solos area. 


NOTE: 


THIS PROCEDURE MUST EXECUTE OUTSIDE OF THE COOO-CFFF 
ADDRESS SPACE. 


program calling sequence example: 


; 
; 
; 
; 
i 
; 
i 
; 
; POwer 
i 
; 
i 
; 
; 
’ 
; 
c 


;Save h we need it 


*0Z-10S 94} 10) Su0}}29}}|POW 


sinp equ OCO1LFH ;SOLOS entry points 
sout equ O0CO19H 
aout equ OCO1CH 
ainp equ 0C022H 
stat equ OFAH ;Keyboard status 
char equ OFCH ;Keyboard data in 
7 
boot: Esk sp,stack 
mvi a,solof ;turns off solos rom/ram area 
out memsw 
jmp cpm; 
; 
wboot: 1xi sp,Stack 
mvi a,solof ;turns off solos 
out memsw 
jmp gocpm 


I/O ROUTINES 


Mme MR RRR SSE ERR RR RE RKRRMRASRAA AMAA 


AQ ose se xe we 


Oe 


onst: in stat 7Sol KB 
cma 
ani 2 
rz 
rtn: mvi a,Offh 
ret 
conin: in stat 7Sol KB 
ani 
jnz conin 
in char 
ora a 
jz conin 
ret 
7 
reader: mov a, ;Serial port 
lxi h,ainp 
jmp memctrl 7send it to solos 


lxi h,sout 


memsw equ OFCH 
solon equ 0 
solof equ not solo 
’ 
memctrl shld vector+l 
lxi h,0 
dad sp 
shld stkreg 
xi sp,stack 
mvi a,solon 
out memsw 
vector call 0 
mvi a,solof 
out memsw 
lhld stkreg 
sphl 
ret 
stkreg dw 0 


stack dw 0 
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;vector to vdm in solos 


;restore h 


;Output that control the memory 
;solos on, normal operation 
n and OFFH 7;enables all ram 


;Sstore vector 


7get stack 

;Save it 

7get a local stack outside 

7C000 — CFFF range 

;turn on solos so we have access 


7get set on entry 
;turn off solos area 


;Lecover org stack 
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Microsystems 
Reader Survey 


Dear Readers: 


Over the last two years, many of you have written 
to us. Your letters have offered encouragement (lots 
of it) and suggestions that have helped Microsystems 
improve and grow. For that, we thank you. 

Our goal for 1982-83 is to bring you a bigger and 
better magazine. You can help us by filling out this 
questionaire and sending it back to us. We would like 
to know what types of articles you are interested in, 
what departments you have enjoyed, and which you 
fee/ could use improvement. 

We would also like to know more about you—how 
you use computers, what kind of system you have, 
the role that computers play in your life, your level of 
expertise and some basic demographic facts. All this 
will help us produce a magazine that best meets your 
requirements as well as contact advertisers with 
products of interest to you. By the way, as we sell 
more pages of advertising, we are commited to 
balance them with more editorial material, and 
enlarge the magazine. You won't find Microsystems 
running 75+% advertising. 

With your assistance we can bring you more of the 
kind of articles you find interesting, and keep 
Microsystems on the right track. So please 
participate in our survey. 


Sincerely, 


STiTetnntiititit Hit iihitniiiiiiiitiiiiiiiiiititiiiiiiiiiniiiiiiiiiiiiiiits 


Claudette Moore 
Managing Editor 


Reading Habits 


1 How did you initially become interested in Microsystems? 
1 O Talking with a friend or associate 
2 0) Seeing acopy ina store 
3 0 Receiving a promotional letter in the mail 
4 0 Seeing an advertisement in another magazine 


2 What is the average amount of time you spend reading or 
looking through each issue of Microsystems? 
1 0 Less than 1 hour 4 0 3to 4 hours 
2 O 1 to 2 hours 5 0 4to 5 hours 
3 0 2to3 hours 6 O over 5 hours 


Tf 


3 How many people read or look through your copy of 
Microsystems? 


Myself and others. 


4 How long do you keep back issues of Microsystems? 
1 O Never discard them 
2 O Over one year 
3 0 Six months to one year 
4 O Three to six months 
5 O Less than three months 
6 O Do not retain 


5 Which computing periodicals do you regularly read or 
look through? 
1 O Microsystems 7 O Interface Age 
2 0 Kilobaud Microcomputing 8 0 Byte 
3 O Small Business Computers 9 DO) Infoworld 
4 O Personal Computing 10 O Lifelines 
5 O Creative Computing 11 O Computer (IEEE) 
6 O Mini Micro Systems 12 DO Computer Design 
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Microsystems’ Editorial Content 


6 Rate the value of Microsystems’ departments (on a scale 
of 1-5; 5 = most valuable, 1 = least valuable): 
1 Letters: 
2 News & Views: 
3 Editor's Page: 
4 CP/M Bus: 
5 Software Directory: 
6 New Products: 
7 NorthStar Topics: 


7 Rate your preference for types of articles: 


Tutorials 

1 CP/M: 7 Hardware: 

2 Programming: 8 System: 

3 Hardware: Programs 
Software 9 Basic: 

4 Systems: 10 Assembler: 

5 Applications: 11 Pascal: 
Reviews 12C: 

6 Software: 13 PL/I: 


8 What were the best four articles in 1981? 


9 What other topics would you like to see covered in 1982? 


Profession 


1 0 What is your principal occupation? 
1 0 Programmer/Analyst 
2 O Engineer/Scientist/Technician 
3 0 Business Owner/Manager 
4 0 Educator 
5 © Student 
6 O Professional (law, medicine, accounting, etc.) 
7 UO Other 


1 1 Do you use computers in your work? 
OO yes OO no 


1 2 If yes, with what frequency? 
1 0 Daily 
2 O Weekly 
3 OU Less frequent than weekly 


1 3 If your company uses small comuters, please check the 
statement that best describes your relation to your company's 
purchases. 

1 © | decide what to buy 
2 OC | influence the buying decision 
3 0 lam not involved 


1 4 What is your exact title? 


Background 
15 What is your age? 
1 0 under 20 6 O 40-44 
2 0 20-24 70 45-49 
3 0 25-29 8 O 50-54 
4 0 30-34 9 0 55-59 
5 0 35-39 10 O 60 and over 


16 
17 


18 


19 
20 


= 21 


22 


24 


25 


What is your sex? 
0 Male 0 Female 


What is your personal income from all sources? 

1 0) under $10,000 6 0) $30,000-$39,999 
2 0 $10,000-$14,999 7 O $40,000-$49,999 
3 0 $15,000-$19,999 8 0 $50,000-$74,999 
4 0 $20,000-$24,999 9 1 $75,000-$99,999 
5 0) $25,000-$29,999 10 $100,000 or more 


What level of education did you complete? 

1 0 High school 

2 UO Some college 

3 O Associates degree 

4 0 4 year college degree 

5 O Some graduate/professional 

6 O Master's degree 

7 O PhD 

8 UO Professional degree (M.D., D.D.S., etc.) 


Are you a member of a computer club? 
O Yes O No 


Are you a member ofa scientific, engineering, or computer 
professional society? 
0 Yes OO No 


Microcomputing In Your Life 


Which of the following best describes your involvement 
with personal computers? (check all that apply) 

1 O Personal or hobby 

2 O Professional or business 

3 0 Educational purposes 

4 O Research and development 

oo) 2 0) =| a a cr eR 


Please check any of the following ways you purchase 
equipment: 

1 0 Local computer store 

2 O Direct from manufacturer 

3 O Systems house or OEM 

4 0 Mail order 

5 O Club group purchase 

6 O Other 


What types of computer systems do you have access to? 
(check all that apply) 
Business Personal 


Use Use 
Large mainframe O Oo 
Large timesharing system i] O 
Midi or large mini O oO 
Minicomputer O O 
Microcomputer (S-100 bus) O O 
Microcomputer (Apple, TRS-80, etc.) 0 O 
Homebrew system a) oO 


If you use an S-100 bus system, what manufacturers are 
included in your system? 
(check all that apply) 


1 0 Morrow Designs 8 OU Imsai 

2 0 Cromemco 9 CD Altair 

3 O NorthStar 10 O Intel 

4 O Godbout Electronics 11 O ECT 

5 O Vector Graphic 12 0 Homebrew 
6 O ccs 13 O SSM 

7 O Tecmar 14 0) Dynabyte 


What is the approximate cost of your personal computer 
system(s)? 

1 O under $1000 4 0 $4000 to $6000 
2 0) $1000 to $2000 5 0) $6000 to $8000 
3 0 $2000 to $4000 6 UO $8000 to $10000 


7 OD over $10000 


26 Have you attended any computer fairs or shows in the 


27 


28 


29 


30 


31 


32 


past year? 


O Yes O No 


Please note the brands of products you intend to buy in 
the next 12 months. 


CPU 

Printer 
Plotter 
Terminal 
Tape or Disk 
Memory 


Modem 


Graphics Pad 
Synthesizer 
Other peripheral 


Software 


How much do you plan to spend on hardware (computers, 
peripherals, etc.) and software within the next 12 months? 
Hardware §. 
Software $ 


Microsystems’ Ads 


Do you find advertisements in Microsystems a valuable 
source of information? 
O Yes OO No 


Which of these statements best describe how you approach 
advertisements in Microsystems? 

1 © Look for ads on specific products 

2 UO Look at most ads 

3 0 Generally look at half the ads 

4 O Rarely look at ads 


Which of the following actions have you taken after reading 

anadvertisementin Microsystems? (Checkall that apply). 

1 0 Asked for more information directly from an 
advertiser 

2 OD Filed or made notes for future reference 

3 0 Purchased or recommended the purchase of a product 
advertised 

4 0 Purchased a competitive product 


Comments 


Please return completed form to Microsystems Survey, 
39 East Hanover Avenue, Morris Plains, NJ 07950. 
THANK YOU! 
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Prob- 
lem 


The world is full 
of intriguing problems 
that never got into 
a textbook. 


Problems for Computer Solution 
by Steve Rogowski 


Ninety intriguing and fascinating prob- 
lems, each thoroughly discussed and ref- 
erenced, make an excellent source of 
exercises in research and preliminary 
investigation. Eleven types of problems 
are provided in the following areas: arith- 
metic, algebra, geometry, trigonometry, 
number theory, probability, statistics, cal- 
culus and science. Author Stephen 
Rogowski of SUNY-Albany has included 
several problems which have never been 
solved. He feels that some research and 
an attempt to solve these will sharpen 
students’ insight and awareness. 

Some of the problems are not new like 
the one asking how much the $24 the 
Indians were paid for Manhattan would be 
worth today had it been deposited in a 
bank. However, this problem was revised 
to have a variable interest rate so it would 
be a challenge to program. Of course, 
many of the problems are new and have 
never been in print before. 

The student edition has 106 pages and 
includes all 90 problems (with variations), 
7 appendices and a complete bibliog- 
raphy. Cost is $4.95. 

The 182-page teacher edition contains 
solutions to the problems, each with a 
complete listing in Basic, sample runs, and 
in-depth analyses explaining the 
algorithms and theory involved. Cost is 
$9.95. 

To get one or both books send payment 
plus $2.00 shipping and handling per 
order to Creative Computing. Credit card 
orders may be called in toll-free to the 
number below. 

Order yours today. If you are not com- 
pletely satisfied, return it for a full refund 
plus your return postage. 


Greative 
Corpatirg 


Morris Plains, NJ 07950 
Toll-free 800-631-8112 
(In NJ 201-540-0445) 


CP/M SYSTEMS 
STANDARD UTILITIES 
Source/Object 

COMMX‘-". — Menu Driven Communications with Information Services (DEC - IBM - UNIVAC - 

CBBS - etc.) and Remote COMMxX Systems Transfer Any File Type/Size. Nine 

Link and Eight Local Functions Prompt for Mindless Operation. ..... .»» 250.00 75.00 
D Disk Directory 4 Column Sort with File Size/Disk File and Space Status. stats 40.00 20.00 
DDB Disk Directory Database UPDATE/INQUIRY Catalogs Files Fast. ............ 60.00 25.00 
DCOMP Disk File Compare with Another Disk File with Display Option. ts 30.00 20.00 
MCOMP Memory Range Compare to Memory (ROM or RAM) - Console Logs Errors. 30.00 20.00 
MTEST Memory Test Any Range with Before/After Write Error Bits + Pass # 30.00 20.00 


ADVANCED UTILITIES 

Comprehensive Sorted Disk Directory/Cross File Block Allocation Check. 30.00 20.00 
Specify Disk Area and Copy Sequentially to CP/M File. .........--.-...+5 ' 30.00 20.00 
8080 Object Dis-Assembler with Symbol Table/XREF/ASCII MAP. . 100.00 40.00 
Disk Exerciser Read or Write/Track/Sector/All/Set and Check Skew. 60.00 25.00 
Gang String Substitution Made Globally in One Pass Editor. .... sad 50.00 20.00 
Source Program Version Number Maintenance at Pre-Edit Time sie 40.00 20.00 
Load/Display/Patch/Copy/Verify/Burn ’&K+1K+2K+4K Proms. as 60.00 30.00 
8080 Object Code Relocator: Put This Into Your Program. .... 2 30.00 20.00 
6502 Crossassembler MAC Macro Library and Post Processor. .............. 100.00 


CDIR 
COPSEQ 
DASM 
DXRSIZ 
GEDIT 
PREDIT 
PROMER 
RELOC 
x6502 


MEMORY MAPPED VIDEO 

EPROM Character Generator Editor for Video Display Boards. 50.00 20.00 
Disk Track Sector Examine with Update in HEX or ASCII or EBDIC. ; 40.00 20.00 
9K Disk Basic with Super Video Commands and Full Screen Program Editor. 

Supports Different Video Cards with Identical Program Execution! .......... CALL 100.00 
For VBASIC: Othello/Blackjack/Breakout/Blockade/Poker Slot and Draw. -». 100.00 50.00 
VBASIC Development System for AY-3-8910 Sound Chip Sounds. .......... 75.00 30.00 
Program Management Information System (Critical Path Method). 200.00 90.00 
VBASIC Data Base Management System/Define/Enter/Report. ... -. 150.00 75.00 
Parameter Controlled Multi-User or Scroll Window Video Driver. coats 50.00 

Vector Line Draw and Plot Subroutine for Fast Graphics. 30.00 

Graphic Games; IMSAI VIO: VECTOR GRAPHIC Flashwriter 2: SSM VB3 s 30.00 20.00 
Zap!/Sound Effects/Joystick or Buttons or Console/Kill or be Killed. ........ 50.00 20.00 
Realtime Action/Sound Effects with Host of Commands and Missions. ss i 20.00 
Moving Aircraft Shooting Gallery with Speed Options/Sound Effects. i 20.00 


CGEN 
OXAM 
VBASIC 


VGAMES 
SOUNDS 
PMIS 
DBMS 
VIDEO 
VDRAW 
CHESS 
INVADERS 
STARTREK 
TARGET 


*CP/M is a Registered Trademark of Digital Research 


Disk $7.50 Extra — Cal. Residents Add 6% Sales Tax 
Send Your Disk! — S. Den 8" +MICROP+APPLE+NSTAR 
Dial 213/348-7909 to Get Free Product Brochure 


HAWKEYE 23914 MOBILE 


CANOGA PARK 
CA 91307 USA 


Speech synthesis using 
the Votrax SC-01 with the 


ais SYNcCHECALKE?! 


64. PHONEMES AND 4 INFLECTIONS 
PROVIDE AN-UNLIMITED VOCABULARY 
THAT IS USER PROGRAMMABLE 


PROGRAMMABLE OSCILLATOR FOR PITCH 
CONTROL.GIVES YOU -MORE-NATURAL 
SPEECH OR MULTIPLE VOICES 


EXTENDED DEVICE OPTION 
UP TO TWO WAIT STATES 


EASILY-PROGRAMMED IN BASIC! 


Write or call for complete details 

Ackerman Digital Systems, Inc. 
*Votrax is 110 No. York Rd., Suite 208 
ae Elmhurst, IL 60126 
Screw Works (312) 530-8992 


Using CP/M’s Undocumented 


“Autoload” Feature 


by Kelly Smith 


Ever wished you could just drop a diskette into your 
drive, boot it, and have it immediately start executing a 
program for you...or the kids want to play some nifty 
game, but you're tired of having your diskettes trashed 
because your 14 year old boy does not understand the 
full implications of ERA *.*...? Well there is a little known 
feature of CP/M that's worth knowing—it has a built-in 
autoload! | don’t know why Digital Research fails to docu- 
ment this for public consumption, since they include the 
information in their OEM distribution documentation. After 
all, how many of us are OEM distributors? Well, here are 
the details of “autoload,” and how to implement it on your 
CP/M system. 

First, take a “scratch” diskette and do a full disk copy of 
your CP/M system diskette, including the system tracks. 
lf you don't have a disk copy program, SYSGEN the 
“scratch” diskette and PIP all the stuff to it. Next, put the 
new diskette (to be set-up for “autoload”) in drive A:, 
“warm boot” it (Control-C) and let’s assume that we want 
to “autoload” Microsoft's MBasic and have it execute 
STARTREK. Here's what you do: 


A>ddt movcpm.com<cr> <--- We need to "patch" MOVCPM.COM 
DDT VERS 2.2 


NEXT PC 
2800 0100 <--- Write down '2800' someplace 
-d0a00<cr> <--- Dump starting at address OA00 Hex 


Here is the start of CP/M (Version 2.2, but this method 
will work for CP/M Version 1.4 just as well): 


»<— CCP jump entry (normal entry) 

++ CCP jump entry to bypass “autoload” 

»~+— 128 characters allowed for command 

| »~— Number of characters in filename 

| .~— Start of filename to "“autoload" 


OA00 C3 5C 03 C3 58 03 7F 00 20 20 20 20 20 20 20 20 .\..X... 
0A10 20 20 20 20 20 20 20 20 43 4F 50 59 52 49 47 48 COPYRIGH 
O0A20 54 20 28 43 29 20 31 39 37 39 2C 20 44 49 47 49 T (C) 1979, DIGI 
0A30 54 41 4¢ 20 52 45 53 45 41 52 43 48 20 20 00 00 TAL RESEARCH 

0A40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
O0A50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
OA60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
0A70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


Kelly Smith, 3055 Waco St., Simi Valley, CA 93063 
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O.k., now that we see that much, let’s patch MOVCPM. 
COM to do the “autoload” of MBASIC.COM and STAR 
TREK.BAS... 


~s0a07<cr> 
OA07 00 Of<cr> 
OA08 20 4d<cr> 
OAO9 20 42<cr> 
OAOA 20 41<cr> 
OAOB 20 53<cr> 
OAOC 20 49<cr> 
OAOD 20 43<cr> 
OAOE 20 <cr> 
OAOF 20 53<cr> 
OA10 20 54<cr> 
OAl1 20 4l<cr> 
OA12 20 52<cr> 
0A13 20 53<cr> 
OA14 20 54<cr> 
OA15 20 45<cr> 
OA16 20 4B<cr> 
OA17 20 .<cr> 
-d0a00<cr> 


<--- Substitute, starting at address 0A07 Hex 
<--- 15 characters in filenames to “autoload" 
<--- ASCII ‘'M' 

<--- ASCII 'B' 

<--- ASCII 'A' 

<--- ASCII 's' 

<--- ASCII 'I' 

<--- ASCII 'C' 

<--- We needed a 'SPACE', so leave as is... 
<--- ASCII ‘s' 

<--- ASCII 'T° 

<--- ASCII ‘A' 

<--- ASCII 'R' 

<--- ASCII 'T! 

<--- ASCII 'R' 

<--- ASCII 'E' 

<--- ASCII 'K' 

<--- Quit substituting 

<--- Let's "Dump" what we just entered... 


.«<— 15 characters in MBASIC STARTREK 
| «~—— Start of MBASIC STARTREK 

| 
OA00 C3 SC 03 C3 58 03 7F OF 4D 42 41 53 49 43 20 53 .\..X...MBASIC.S 
OA10 54 41 52 54 52 45 4A 20 43 4F 50 59 52 49 47 48 TARTREK.COPYRIGH 
OA20 54 20 28 43 29 20 31 39 37 39 2C 20 44 49 47 49 T (C) 1979, DIGI 
OA30 54 41 4C 20 52 45 53 45 41 52 43 48 20 20 00 00 TAL RESEARCH 
OA40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 wececccccncccaee 
0ASO 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ..cwsscccccrsnee 


OA60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .eeeeeeereceeeee 
0A70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ceveveceeeeceees 


Keep in mind, that you are not limited to just filenames— 
you could just as well “autoload” and envoke submit files 
(including command strings), whatever, and can completely 
“overlay” Digital Research's copyright notice and use as 
many ASCII character entries as are required. Don't sub- 
stitute passed address OA7F Hex, however! Now exit 
DDT(Control-C cr orGO cr_ ),andlookatthe number 
that you wrote down...it’s there on that piece of paper, 
next to the beer can. Hmmm...says 2800...0.k., multiply 
the 2 by 16. Now, since the 8 ends in two zeros, subtract 1 
from 8, and add 32 and 7 together to get...39! Now follow 
along closely: 


A>save 39 trekload,com<cr> 


We just saved 39 pages (256 bytes/page) of the patched 
MOVCPM.COM, and for reference, renamed it to TREK- 
LOAD.COM. Now SYSGEN your diskette (however you 
do that) with TREKLOAD instead of MOVCPM, and “cold 
boot” the diskette. 

It should “boot” with MBasic being executed, then 
MBasic takes over and loads in STARTREK, and then 
you are ready to “zap” some Klingons! (ea) 
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For the S-100 Bus. 32K of on board memory 
allows a 288 H. x 192V. dot matrix, for a total 
of 55,296 pixels. Every pixel is programable in 
any one of 16 colors or 16 grey levels 
completely independent of all other pixels in the 
matrix. 

Compuprism Bare Board with documentation 
$45, kit $240, ass. and tested $280. 

(16K Memory 144H. x 192V.) 

Super Compuprism Bare Board with 
documentation $50, kit $350, ass. and tested 
$395. 

(32K Memory 288H. x 192V.) 

Add $15 to A & T price for 16 level grey scale. 
Add $15 to A & T price for memory 
management port. 

Compuprism software package, includes alpa- 
numberics, point plot, line draw, and TRS-80* 
graphics simulation $20 or FREE with A & T unit. 


“100 INNOVATORS: 


= aac REMOTE CONTROLLER—Innovative Features: 


See your local computer dealer or contact SciTronics directly for more information. Watch for future innovative products 
from SciTronics Inc., 523 So. Clewell St., P.O. Box 5344, Bethlehem, PA 18015 (215) 868-7220 


Z-80 Users 
You Can Use 
TRS-80* 
Software 


We offer an assembled hardware 


Ea interface which we guarantee 


will load data from TRS-80* 
cassettes into any Z-80 based 


ai system. (Except sealed units.) 
@ The documentation explains how 
to patch the TRS-80* software 


to your system. In fact you can 
virtually change your Z-80 
machine into a TRS-80* without 
making a single hardware 
change. The documentation also 
includes an example of patching 
SARGON II** into a Z-80 
system. 


The price is $30 or FREE with the 
purchase of an assembled 
compuprism or super compuprism 
unit. 


A-D, D-A Board 


S$-100 board provides 16 chan- 
nels of analog to digital input 
and 8 channels of digital to 
analog output. With on board 
kluge area. Total cost of board 


and parts less than $120. Bare 
board with documentation $45. 


ALL COD ORDERS SHIPPED WITHIN 72 HOURS. 4MHz MOD FOR S.D. SYSTEMS. 


EXPANDORAM $10. 


J.E.S. GRAPHICS, P.O. Box 2752 
Tulsa, OK 74101, (918) 742-7104 


TRS-80* is a trademark of Tandy Corp. 
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SARGON II** is a trademark of Hayden Book Co. 


*Complete 256 address control—not just 16 

*No ultrasonic link—prevents erractic operation 

* 420,208,240 and 277VAC control—for single & 3 phase operation 
*Hardware driven—requires minimal software 

*Complete line of industrial switches available—to 5.5KW 


REAL TIME CLOCK—Innovative Featuers: 
*First to use LS! OKI clock chip 
*Crystal controlled for .002% accuracy 
*4 software selectable clock generated interrupts 
*Full clock and calendar data 
*Lithium battery backup good for 6000 hours! 


ENERGY WATTCHER™—Innovative Features: 


*First microcomputer based energy monitor 
*Clip on probes for easy installation 
*Monitors Real Power, not volt-amps 

*Peak Power and continuous power readings 
*Single and 3 phase operation 


Announcing JRT PASCAL Version 2. 

As the name implies, it’s PASCAL refined — 

the second generation. Here’s why: 

==No limit on program size — separately compiled 
external procedures are auto-loaded 

== No limits of size of procedures, nesting levels 
or recursion 

== 14 digit precision arithmetic, no conversion errors, 
exponents from —64 to +63 

m= Dynamic strings up to 64K bytes 

wa Verbal error messages, dynamic trace, assembly code 

== True dynamic storage with auto-compression 

== Ail new 110 page user manual 

m= One-step compiler for CP/M* systems 

If you’re considering any PASCAL, seriously 

consider JRT PASCAL Version 2 before you buy. 

Another advanced programming product from 

JRT Systems, it’s ready for you now. 


joa 5 ke 22365, 1891-23rd Avenue 


San Francisco, CA 94122 


*CP/M is a trademark of Digital Research 


MSOF T WARE 
DIRECTORY 


Program Name: BPSXREF 

Hardware System: CP/M with Microsoft 
Basic-80 v5.x 

Minimum Memory Size: 48K 

Language: Machine Code 

Description: BPSXREF is a listing and cross- 
reference generator for Microsoft's Basic- 
80 5.x language. It produces a formatted 
program listing and alphabetized list of 
program variables and functions cross- 
referenced to the line numbers where they 
are used. 

The formatted listing allows for page titles, 
page numbers and skipped lines for added 
clarity in program documentation. Options 
allow user to decide whether he wants a 
simple listing or only a detailed cross- 
reference, or some combination of listing 
and cross-reference. 

BPSXREF operates on ASCII formatted 
CP/M files as produced by MBasic’s SAVE 
command with the “A” option or text editors 
such as ED, WORDMASTER and MINCE. 
This is same file format required by Microsoft's 
Basic compiler, BASCOM. 

Release: September 1981 

Price: $124 

Included with price: Disk and documenta- 
tion. 

82 Woods End Rd. 

Fairfield, CT 06430 

(203)254-1659 


Program Name: SPELL 

Hardware System: Standard CP/M and 
Heath/Zenith HDOS 

Minimum Memory Size: 48K 

Language: Machine Code 

Description: SPELL is a spelling proofreader. 
It detects mispelled words in documents 
created by most text editors and word 
processors, including WordStar and Magic 
Wand. It allows listing unknown words, 
marking them in the document for easy 
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editing, or adding them to the dictionary. 
Effective dictionary size is over 50,000 words 
with a user-expandable prefix/suffix table. 
SPELL processes 4,000 input words per 
minute. 
Release: October 1981 
Price: $49.95 plus $3 shipping/handling 
Included with price: Disk and manual; specify 
8” std CP/M or 5" Heath/Zenith CP/M or 
HDOS disk. 
Where to purchase it: 

The Software Toolworks 

14478 Glorietta Dr. 

Sherman Oaks, CA 91423 

(213)986-4885 


Program Name: Smartkey 
Hardware System: Any CP/M system 
Minimum Memory Size: 20K 
Description: Smartkey installs a software 
interface between the console keyboard 
and CP/M, allowing the operator to ‘redefine’ 
key functions. Individual key codes may be 
altered and keys may be made to return a 
sequence of characters for each keystroke. 
The logical layout of keyboards may be 
improved and customized for particular 
applications software. Sets of key definitions 
canbe saved on disk for re-use and definitions 
may be altered at any time. The program 
works with either version of CP/M and 
requires no hardware or software knowledge 
to install or use. 
Release: October 1981 
Price: $39.00 
Included with price: 8" disk, 20 page 
manual. 
Where to purchase it: 

FBN Software 

1111 Sawmill Gulch Road 

Pebble Beach, CA 93953 

(415)373-5303 


Program Name: COMSTAR OVERLAY 
Hardware System: North Star DOS 
Minimum Memory Size: 32K 
Language: Basic Compiler—Assembly lan- 
guage. 
Description: An overlay structure is now 
possible under an extension to the 
COMSTAR compiler for North Star Basic. 
An overlay differs from page CHAINing in 
that root program segment and selected 
program variables can survive intact as a 
new program segment is introduced. An 
overlay structure allows very large programs 
to be executed and is also suitable for a 
menu driven system of programs. Includes 
aCP/M overlay capability for those with the 
COMSTAR-CP/M interface. 
Release: September 1981 
Price: $75.00 to registered owners of Com- 
star 
Included with price: Modified Compiler, and 
overlay support routines. 
Where to purchase it: 

A.M. Ashley 

395 Sierra Madre Villa 

Pasadena, CA 91107 

(213)793-5748 


Program Name: ABSTAT 

Hardware System: Any CP/M computer 
Minimum Memory Size: 48K 

Language: Pascal/MT+ 

Description: ABSTAT is an interactive sta- 
tistics package. Commands include multiple 
linear regression, analysis of variance, cross 
tabulations, bar graphs, scatter plots, means 
tests and many others. Flexible data mani- 
pulation’ routines allow full data editing, 
subsetting, appending, and ASCII file transfer 
with straightforward algebraic equations. 
Up to twenty variables are accessible by 
name or number. There are facilities for 
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If you are a CP/M user, on any system—S- 
100, Apple, TRS-80, Heath, Ohio Scientific, 
Onyx, Durango, Intel MDS, Mostek MDX, 
etc—after all CP/M is the Disk Operating 
System that has been implemented on more 
computer systems than any other DOS—then 
Microsystems magazine is the “only” maga- 
zine published specifically for you! 

Or, if you use an S-100/IEEE-696 based 
computer—and the most sophisticated 
microcomputer systems available use the 
S-100/IEEE-696 hardware bus—then Micro- 
systems magazine is the “only magazine 
published specifically for you! 

We started publishing Microsystems almost 
two years ago to fill the void in the microcom- 
puter field. There were magazines catering 
exclusively to the TRS-80, Apple, Pet, Heath, 
etc. system users. There were also broad 
based publications that cover the entire field 
but no one system in depth. But no magazine 
existed for CP/M users—nor did one exist 
for S-100 users. 


The why and what of a software bus 


First of all what is a ‘bus?’ And why do we 
cali CP/M “the software bus?” 

A “bus” is a technique used to interface 
many different modules. Examples are the 
“S-100/IEEE-696 Bus" and the “IEEE-488 
Bus." These are hardware buses that permit 
a user to plug a bus-compatible device into 
the bus without having to make any other 
hardware modifications and expect the 
device to operate with little or no modifica- 
tion. 

CP/M isa Disk Operating System (DOS). 
It was first introduced in 1974 and is now 
the oldest and most mature DOS for micro- 
computer systems. CP/M has now been 
implemented on over 250 different computer 
systems. It has been implemented on hard 
disk systems as well as floppy disk systems. 
It is supported by two user groups (CP/M- 
UG and SIG/M-UG) that have released over 
80 volumes containing over 2,000 public 
domain programs that can be loaded and 
run on systems using the CP/M DOS. Add 
to this another 1,500 commercially available 


Microsystems vase 
the CP/M and S-100 


User's Journal 


CP/M is the software bus!* 
S-100 is the hardware bus 
for sophisticated microcomputer users! 


CP/M software packages and you have the 
largest applications software base in exis- 
tence. 

CP/M is the only DOS for micros that has 
stood the test of time (seven years) with 
the highest level of compatibility from version 
to version. And over the years this compati- 
bility has been maintained as new features 
have been added. 

This is why we say ‘CP/M is the software 
bus” and why Microsystems magazine is 
vital to providing CP/M users with technical 
information on using CP/M, interfacing to 
CP/M, new CP/M compatible products and 
for CP/M users to exchange ideas. 


Why support the S-100 bus? 


S-100 is currently the most widely used 
microcomputer hardware bus. It offers 
advantages not available with any other 
microcomputer system. Here are a few of 
the advantages: 


S-100 is processor independent. There 
are already thirty different S-100 CPU cards 
that can be plugged into an S-100 bus 
computer. Nine 8-bit microprocessors are 
available: 6502, 6800, 6802, 6809, 2650, 
F8, 8080, 8085 and Z80. Eight 16-bit micro- 
processors are available: 8086, 8088, 9900, 
Z8000, 68000, Pascal Microengine, Alpha 
Micro (similar to LSI-11) and even the 
AMD2901 bit slice processor. Take your 
pick from the incredible offerings. 

S-100 has the greatest microcomputer 
power. What other microcomputer system 
has direct addressing of up to 16 megabytes 
of memory, up to 65,536 I/O ports, up to 10 
vectored interrupts, up to 16 masters on 
the bus (with priority) and up to 10 Mhzdata 
transfer rate? You will have to goa long way 
to use up that computing power. 

S-100 is standardized. The S-100 bus 
has been standardized by the IEEE (Institute 
of Electrical and Electronic Engineers) 
assuring the highest degree of compatibility 
among plug-in boards from different manu- 
facturers. And, Microsystems has published 
the complete IEEE S-100/696 standard (all 
26 pages). 


S-100 has the greatest hardware support. 
There are now over sixty different manufac- 
turers of about 400 different plug-in S-100 
boards. Far greater than any other microcom- 
puter system. 

With all these advantages is it any wonder 
that S-100 systems are so popular with 
microcomputer users who want to do more 
than just play games? 


F or the serious computer user. 


Each issue of Microsystems brings you 
the latest in the CP/M and S-100 world. 
Articles on applications, tutorials, software 
development, product reviews, and lots more, 
to keep you on top of the ever changing 
microcomputer scene. 

And if you are an S-100 system user using 
other operating systems (e.g. North Star) 
Microsystems also supports you. 


Get your copy today 


Order your subscription to Microsystems. 
Send $16 for one year (6 issues), $30 for 
two years (12 issues) or $42 for three years 
(18 issues). If you prefer, call our toll-free 
number, 800-631-8112 (in NJ 201-540-0445) 
to put your subscription on your MasterCard, 
Visa or American Express card. Canadian/ 
Mexican and other foreign surface subscrip- 
tions are $19 and $35, respectively, per 
year and must be prepaid. We guarantee 
that you will be completely satisfied or we 
will refund your subscription. 

Join thousands of Microsystems subscrib- 
ers like Jim Johnstone of Los Altos CA, who 
said “Microsystems has lived up to your 
promises and my expectations. Congratula- 
tions.” 


the CP/M* and S-100 user’s journal 


MICROSYSTEMS 


a Creative Computing publication 


39 East Hanover Avenue 
Morris Plains, NJ 07950, USA 
Toll-free 800-631-8112 
(In NJ, 201-540-0445) 


New subscribers are entitled to a free CP/M Reference Card. Be sure to ask for yours when you order. 


* registered trademark Digital Research 


+ registered trademark Lifeboat Associates 


Software Shops 


—Arizona— 
Creative Software Systems: Systems inte- 
gration and custom software (BASIC, PAS- 
CAL, Z-80 assembler). Small business and 
word processing systems. 632 Camelot Dr., 
Sierra Vista, AZ 85635. 
Phone (602)458-6063. 


—California— 
Nelson Engineering: We write applications 
software for all micro-based systems in 
Asembly language, Basic, and Pascal. (213) 
390-2963; 13450 Maxella Ave. G185 Suite 
142, Marina Del Rey, CA 90291. 


—Colorado— 
Random Factors LTD..: Industrial test, control 
& data acquisition — Hi speed & accuracy 
for S100 & STD-BUS. From software to 
complete systems. W.K. Borsum, P.E., 
Random Factors LTD. Castle Rock, CO 
80104. (303) 688-5338. 


—Massachusetts— 


MICROFT INC.: Customization of CP/M- 
80, MP/M, CP/M-86 and other operating 
systems. Full range of consulting services 
in microsystems software (systems, utilities 
applications), product selection, hardware. 
Contact: Tom Campbell, Chief of Technical 
Staff, P.O. Box 128, E. Falmouth, MA 
02536. Phone (617)563-3807. 


— New Jersey— 


New Jersey Software Services: Full range 

of CP/M, S-100 services. 

— System design 
Business applications 
Real-time systems 
Mathematical analysis 

— Software creation/customizing 
8080 assembly language 
Z-80 assembly language 
BASIC 
FORTRAN 

— Product evaluation/selection 
Hardware Software 

— In house training 

— Telecommunication service 

— Voice |/O applications 


Contact C. A. Ryan, 6 Village Circle, West- 


field, N.J. 07090 (201) 233-9297. 


—New York— 
Patrick Software Inc.: Systems design, pro- 
fessional advice, customization and program- 
ming services for CPM/8080, RSX/PDP-11 
and others. 853 Carroll Street, Brooklyn, 
NY 11215. Phone: (212)622-8349. 


Software Directory, continued... 


writing formal reports and automatic batch 
processing from a command file. A help 
command is also provided. 
Release: October 1981 
Price: $400 
Included with price: An 8” single density 
disk and 105 page manual. 
Where to purchase it: 
Anderson-Bell 
2916 S. Stuart St. 
Denver, Colorado 80236 
(303)936-3859 


Program Name: CATALOG 

Hardware System: CP/M system with two 
8" disk drives 

Minimum Memory Size: 24K 

Language: Machine Language 
Description: CATALOG builds and maintains 
acompressed master data base containing 
information relevant to each file on each 
disk. Generating and updating this data base 
requires only information regarding what 
disk drive to read and what ID number to 
assign to the disk. CATALOG also permits 
users to enter short notes for each file and 
disk in data base. Data base query by 
filenames, filetypes, “wild cards,” partial 
filenames or disk numbers as search direc- 
tives. 

The information displayed or printed by 
CATALOG shows the date they were last 
entered in the data base and the space 
used. File displays include filename, filetype, 
user number, system status, read-only status, 
file size, disk number containing that file 
and user-entered notes. A quick summary 
of all disks is also available which includes 
disk number, date last entered in the data 
base, space used and user-entered disk 
notes. 

Release: October 1981 

Price: $75 plus $2 shipping/handling, add 
tax in CA 

Included with price: 8” Disk and Manual 
Where to purchase it: 

SRX Systems 

2812 Westberry Drive 

San Jose, CA 95132 

(408)926-9411 


Program Name: Tarbell Bios 

Hardware System: 8080, Z80, 8085 com- 
puter, Double density controller 

Minimum Memory Size: CP/M must be 
located 1K lower than memory size. 
Language: 8080 source code 

Description: Tarbell deblocked bios with 
virtual memory disk. Auto density select on 
single density, double density 51 by 128, 
and double density 16 by 512. Very fast! 
With Z80 running at 4MHz loads 25K in 2.5 
seconds. The virtual memory disk is con- 
figured for banked memory boards using 
port 40h. The memory appears identical to 
a disk drive. Place a file in the memory disk 
and let Wordstar print it from the background. 
Disk waits disappear. Great for temporary 
files created from Pascal compilers, sort 
programs and etc. 

Realease: September 1981 

Price: $45.00 

Included with price: COPY.ASM, FORMAT. 
ASM, BOOT.ASM and SYSGEND.COM 


Supplied on an eight inch single density 
disk. 
Where to pruchase it: 

Linmar 

541 Ingraham Ave. 

Calumet City, IL 60409 

(312)868-4866 (Ask for Mark) 


Program Name: RUNIC 1.0 Language Inter- 
preter 

Hardware System: 8” CP/M, TRS-80 Model 
ll, H89 or Apple/CP/M 

Mininum Memory Size: 48K 

Language: Machine Code 

Description: RUNIC has its roots in FORTH, 
but is much more approachable by the 
beginner and much more friendly to the 
user. Furthermore, RUNIC code is more 
easily read and maintained than FORTH 
code. 

RUNIC implements higher level data 
structures than FORTH, including integers, 
floats, and character strings. RUNIC uses 
RPN to evaluate its expressions, but its 
control structures are much closer to those 
of Pascal, Basic, and other “algebraic” 
programming languages. READ, WRITE, and 
CLOSE words give RUNIC text file 1/O, and 
a Tiny Filer (similar in concept to the UCSD 
Pascal Filer) allows file manipulation from 
the console. No source editor is supplied, 
however, source code may be prepared via 
ED, Wordstar, or any other CP/M text 
editor. 

Release: October 1981 

Price: $49.95 plus $3 postage/handling. NY 
residents add 7% tax. 

Included with price: Disk and manual; speciify 
standard 8", TRS-80 Model II, H-89 SD or 
Apple-I| CP/M disk. 

Where to purchase it: 

Starside Engineering 

Box 8306 

Rochester, NY 14618 


Program Name: SMARTNET-DUMBNET 
Hardware System: 8080, Z80 or 8085 running 
MP/M 
Minimum Memory Size: 20K for satellites, 
32K for the hub 
Language: 8080 source code 
Description: A network operating system 
that allows satellite computers to share 
common resources of ahub computer. The 
resources at the hub computer can consist 
of disk drives, printers, data bases, programs, 
etc. High performance operation is obtained 
because each user has a complete computer. 
DUMBNET is used with computers without 
disk drives and SMARTNET is used with 
computers with at least one disk drive and 
running CP/M 2.2. All functions of CP/M 
2.2 are supported on the satellite com- 
puters. 
Release: August 1980 
Price: SMARTNET $150.00 DUMBNET 
$175.00; purchased together $300.00 
Included with price: Complete documented 
source code and installation manual. 
Where to purchase it: 

LINMAR 

541 Ingraham Ave. 

Calumet City, IL 60409 

(312)868-4866 ie) 
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Get 12 issues of - 


Creative Computing | 
for the price of 8. 


Some things are still cheaper by the dozen. 

When you subscribe to Creative Computing, you get 12 issues for just $24.95. The same 12 
issues would cost you $35 at the newsstand. 

Why not enjoy Creative Computing all year long and save $10 at the same time. 

To subscribe, call toll-free from 9 AM to 6 PM 800-631-8112. In New Jersey, call 
201-540-0445. Or write to Creative Computing, P.O. Box 5214, Boulder, CO 80321. We accept 
Visa, MasterCard and American Express. 

Creative Computing is the leading magazine of small computer applications and software. It 
has in-depth reviews of new systems, peripherals and software. Also articles for both 
beginners and experts; columns about popular computers, programming techniques and new 
products; and complete program listings for your computer. 

Alvin Toffler says, ‘‘I read Creative Computing not only for information about how to make 
the most of my own equipment but to keep an eye on how the whole field is emerging.” 

Why not join over 160,000 subscribers and save money at the same time? Remember, 
they’re cheaper by the dozen. Brrr: 


Phe 


ees VE 


PRODUCT I 


Display/S-100 Unit For 
Sorcerer Computers 


A display/S-100 unit has been created 
to link the Sorcerer computer to all the 
manufacturers of S-100 bus products. The 
new unit combines an S-100 motherboard/ 
power supply within an attractive enclosure 
that also houses the video display (a 12” 
CRT with 20MHz bandwidth and green P31 
phospor). 


The Display/S-100 includes cables and 
documentation for easy installation. Sug- 
gested retail price is $699.00 F.O.B. Exidy 
Systems, Inc., 1234 Elko Drive, Sunnyvale, 
CA 94086; (408)734-9831. 


Warp Drive Makes CP/M 
System Super-Fast 

G & G Engineering has released WARP 
DRIVE, a hardware/software package which 
allows extended address S-100 RAM 
memory to emulate a disk drive under CP/M 
2.2, providing speed increases of up to forty 
times over floppy disks. The WARP DRIVE 
system is based around the CompuPro dual 
processor 8085/8088 CPU board, allowing 
as much as 1 Megabyte of extended address 
RAM to act like a disk drive while running 
CP/M 80 on the 8MHz 8085, and to appear 
as directly addressable memory when run- 
ning CP/M 86 on the 8MHz 8088. All CP/M 
2.2 compatible software may be run unmodi- 
fied on WARP DRIVE. G & G Engineering, 
13708 Doolittle Drive, San Leandro, CA 
94577; (415)895-0798. 
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6MHz CPU S-100 Card 

The CP 600 Central Processor card uses 
a 6MHz Z80 and conforms to the IEEE-696 
standard. Two on-board ports extend memory 
addressing to 24 bits and I/O addressing to 
16 bits. This allows a possible 16 bytes of 
system memory and 65K of system 1/O. 

The System RAM refresh is done as a 
standard S-100 memory read cycle, minimiz- 
ing the need for special logic on RAM cards. 
All eight lower address bits are used for 
refreshing to accommodate 64K dynamic 
RAM devices. A refresh localizer allows 
intensified parity checking in the area of 
currently executing programs. All bus cycles, 
including the refresh cycle, are three “T” 
times long. CP 600 has jumper-selectable 
memory and I/O wait states, as well as on- 
board EPROM wait. Ready signals are 
evaluated on the rising edge of PHI during 
BS _ per IEEE-696 standard. Echo Com- 
munications Corp., 1708 Stierlin Rd., Moun- 
tain View, CA 94043; (415)969-6086. 


New Guide For 
Independent Software Authors 

“Software Wanted: How and Where to 
Sell Your Program” is a new guide from 
Battery Lane Publications for anyone wishing 
to sell programs they've written them- 
selves. 

Many companies that market software are 
actively looking for programs written by 
independents. They know that they cannot 
possibly write all of the software packages 
that are needed by the fast-growing universe 
of micro and mini users, so they must turn 
to independent software authors. The new 
“Software Wanted” guide is intended to bring 
software authors and marketers together. 

Throughout 1981, BLP has been surveying 
software publishers and distributors to 
determine what kinds of programs they buy, 
what royalties they pay, and which ones 
offer help with programming and documenta- 
tion. That information, published periodically 
in the Computer Consultant journal, has now 


been collected into one volume. Information 
on over sixty companies is provided, along 
with tips on what to look for before signing 
a contract. 

“Software Wanted” is being sold on a 
money-back guarantee basis, for $25, by: 
Battery Lane Publicatiions, PO Box 30214, 
Bethesda, MD 20814; (301)770-2726. 


IEEE-488 To S-100 Interface 

The 488+3 provides an IEEE-488 interface 
for S-100 (IEEE-696) computers. In addition, 
the 488+3 incorporates three parallel 
ports. 

The IEEE-488 interface is implemented 
through the use of Texas Instruments’ TMS 
9914. The TMS 9914 communicates with 
the CPU via input/output-mapped 8-bit data 
ports. IEEE 488-1975/78 standard protocol 
is handled automatically in Talker, Listener, 
and Bus or System Controller operational 
modes. 

The software |/O driver routines, written 
in MBasic, are supplied. These programs 
are callable subroutines for performing 
message handling and initialization. The 
manner in which they have been written 
allows them to be easily incorporated intoa 
software program. No BIOS modifications 
are required. 


The 488+3, IEEE-488 cable, and manual 
are available for $375; D&W Digital, 1524 
Redwood Drive, Los Altos, CA 94022; 
(415)966-1460. 
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S-100 Prototype 
Wirewrap & Extender Cards 

Inner Access has introduced a 10” x 10” 
S-100 prototype wirewrap board (S100 
PWWB-1) accomodating wirewrap sockets 
on .3” or .6" centers anda 13” x 10" Extender 
card. Both cards meet specifications for 
IEEE-696 compliance HH. 

The 10” x 10” wirewrap board will accom- 
modate 112 16-pin IC’s plus a variety of 
3M-style connectors. Onboard regulators 
provide 5 volts at 4 amps and +12 volts at 1 
amp. 
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The extender card has scope hangers on 
all signal leads and ground traces between 
all signals. Power traces have jumpers to 
allow current measurement. The edge 
connector fingers on both boards have gold- 
over-nickel plating for long life. 

Wirewrap protoboard is $119 or $98 each 
for three, and the extender card is $58; 
Inner Access Corporation, 517-K Marine 
View, Belmont, CA 94002; (415)591-8295. 
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S-100 Typesetter Interface 

The microCOMPOSER from Cybertext 
Corporation is an interface and software 
system which enables an S-100 system 
running CP/M to contro! CompuWriter 
typesetters (models |, Il, 1Va or Junior). 
CompuWriter and computer can function 
separately or together. 

The word processing program in the 
microCOMPOSER system offers complete 
editing control: change letters, words, lines, 
paragraphs, pages; global control; format 
in galleys or pages. Page formats may include 
automatically inserted folios (starting at any 
number) and/or running heads or feet. Use 
computer printouts to proofread or revise 
before going to film. Save the copy on 
magnetic disks to reuse all or any part in 
other ways at any time. With the addition of 
one or more computer keyboards, multiple 
operators may generate copy on disks for 
printout on a single shared CompuWriter. 

The system automatically prints the actual 
time required to print out copy, thus providing 
accurate figures for customer records and 
more definitive pricing information. 

The microCOMPOSER system requires 
a simple “blackbox” connection inside the 


SAVE 


$150.00 for a 4-MHz Z80A system with 


64-KB of memory plus a real front panel 
OR 


$200.00 for a 24x80 full function CRTI! 
you can roll your own technology, save 
a bundle and be running BASIC, FORTRAN, 
COBOL on your own computer system before 
you know itl FREE DETAILS 
DIGATEK CORP., 2723 West Butler Drive, 
Suite 30, Phoenix AZ 85021 
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CompuWriter. There are only four easily 
located wires to attach (six in a Comp IV) 
and a plug connection to an existing con- 
nector. It is not necessary to make any 
alterations in the CompuWriter. A manual, 
describing in detail the installation plus all 
the operator information, is included. Contact: 
Cybertext Corporation, Box 860, Arcata, CA 
95521; (707)822-7079. 


$S-100 Single Board Multi-User System 

NET/82* is an S-100 board featuring a 
Z80A CPU, two serial ports, optional floating 
point processor, interrupt controller, shadow 
EPROM, real time clock, and an S-100 
parallel port for communication with the 
master CPU. It includes bank-switched 
memory addressing and parity checking (both 
optional). NET/82 is compatible with 


MuDOS*, offered by MuSYS, as well as 
CP/M+, MP/M+ and CP/NET+. 

Price: $1395; $1995 with 128K and floating 
point processor. NET/82 is available from 
MuSYS Corporation, 1451 Irvine Blvd., Suite 
11, Tustin, CA 92680; (714)750-5693. 


* Net/82 and MuDOS are trademarks of 
MuSYS Corporation. 

+ CP/NET, MP/M and CP/M are trademarks 
of Digital Research. 


INFOSOFT Has a Better Way 
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New Products, continued... 


Analog/Digital 
1/O S-100 Card 

Automated Control Systems has intro- 
duced an S-100 card with both analog and 
digital |/O, the V.1.P.—Versatile Instrumenta- 
tion Peripheral. 

The analog portion is software-configurable 
and includes: an instrumentation amplifier 
input with resistor programmable gain, an 
analog gain block with trimmer adjustable 
Offset, a 12-bit A/D converter offering 25 
conversion time and software-selectable 
input ranges, a 12-bit multiplying D/A 
converter with simultaneous voltage and 
current source outputs, double buffered for 
signal synthesis capabilities. 


The digital features include 8 TTL inputs 
and 48 TTL-compatible 30-volt, 100 mA open 
collector outputs. Selectable ROM decoding 
allows BCD programming of 5 digits of 7 
segment LED displays. The board occupies 
16 contiguous read and write I/O locations 
and offers switch-selectable addressing. 


There are full Z80 interrupt and WAIT state 
capabilities. Additionally, the V.1.P. has two 
uncommitted dual utility relays. 

Price: $595 plus $4 shipping/handling, 
MA residents add 5% sales tax; Automated 
Control Systems, 1105 Broadway, Somer- 
ville, MA 02144; (617)628-5373. 


Winchester/Floppy Controller 
For S-100 

Many combinations of 5-1/4 or 8 inch 
Winchester and floppy disk drives can be 
controlled by the Piiceon D-100 single S- 
100 board disk controller, which is fully 
compatible with the IEEE-696/S-100 bus 
standard. It is |/O-mapped as an 8-bit port, 
assuring reliable data transfer with most S- 
100 systems. The D-100 operates with any 
drive using Shugart-compatible interfaces 
such as the Shugart SA-1000, SA-800, SA- 
400, the Seagate Technology ST-506, and 
the Quantum Q-2000. The D-100 is 100% 
compatible with |BM-formatted diskettes. 

The D-100 responds to the command 
format of the NEC-765 floppy disk controller 
chip minimizing software rewrite for systems 
using NEC-765. For other systems, CP/M 
BIOS is available from Piiceon. It uses an 8 
X 300 bipolar microcontroller chip. D-100 
also provides an on-board sector buffer, a 
diagnostic LED, and CRC logic which sup- 
port error checking on floppy disks and 
error correction on hard disks. Price is $745 
from Piiceon Inc., 2350 Bering Dr., San 
Jose, CA 95131. 


2-80 and 8086 FORTH 


FORTH APPLICATION DEVELOPMENT systems for Z-80 and 8086 
microcomputers — including interpreter/compiler with virtual memory 
management, line editor, screen editor, assembler, decompiler, 
utilities, demonstration programs and 100 page user manual. CP/M 
(tm) compatible random access disk files used for screen storage, 
extensions provided for access to all CP/M functions. 


Z-80! FORTH s iaienrcsnsmnnnaann canine anrewamsnnieenicemmmats $50.00 
Z-80 FORTH with software floating point arithmetic....... $150.00 
Z-80 FORTH with AMD 9511 support routines............ $150.00 
BOBS FORT Ais. asascwranspazerars sioreaiseirersinra ssonraanwe on araniscnseres averaven $100.00 
8086 FORTH with software floating point arithmetic ...... $200.00 
8086 FORTH with AMD 9511 support routines............ $200.00 


FORTH METACOMPILER system allows you to expand/modify the 
FORTH runtime system, recompile on a host computer for a different 
target computer, generate headerless code, generate ROMable code 
with initialized variables. Supports forward referencing to any word or 
label. Produces load map, list of unresolved symbols, and executable 
image in RAM or disk file. 


Z-80 host: Z-80 and 8080 targets.............. cece eee $200.00 
Z-80 host: Z-80 8080, and 8086 targets .................. $300.00 
8086 host: Z-80, 8080, and 8086 targets................. $300.00 


System requirements: Z-80 microcomputer with 48 kbytes RAM and 
Digital Research CP/M 2.2 or MP/M 1.1 operating system; 8086/8088 
microcomputer with 64 kbytes RAM and Digital Research CP/M-86 
operating system. 

All software distributed on eight inch single density soft sectored 
diskettes. Prices include shipping by first class mail or UPS within USA 
and Canada. California residents add appropriate sales tax. Purchase 
orders accepted at our discretion. 


Laboratory Microsystems 
4147 Beethoven Street 
Los Angeles, CA 90066 

(213) 390-9292 


Afterthought Engineering 
Bower-Stewart & Assoc 

California Digital Engineering........ 
Computer Design Labs 

Computer Innovations 

Computer Products Unlimited 
Computer Services Corporation 
Computer Toolbox 

Cotton Associates 


Digital Research 
Discount Software Group 
Dual Systems Corp. 
Dupre Enterprises 

D & W Digital 


Electronic Control Technology 
Executive Data Systems 

G & G Engineering 

Godbout Electronics 
Hawkeye Grafix 


Infosoft Systems 

Inner Access 

Integrand 

Jade Computer Products 

JES Graphics 
JRT:Systemsisainucaseoreee as Y 


Knowlogy 

Laboratory Computer Systems 
Laboratory Microsystems 

Lifeboat Associates 

Lomas Data Products 

Marketing Essentials 

McClintock Corporation 
MicroDaSysiiiniccas) wees fo8 gore 
Micro-Logic, Inc.. 

Microsystems 

MicroTech Exports 

Morrow Designs... 

PCE Systems ‘ rm 
Pluto Research Group............... 10 
Potomac Micro-Magic 
Priority One Electronics 

$-100, Inc 

Scitronics, Inc 

Small Business Computers 

Southern Computer Systems 

SPC Technologies 

Static Memory Systems 

Stellarsoft Corporation 

Stok Computer Interface 

SZ Software Systems 

Snow Micro Systems 

Technical Software Systems 
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THE HARD EDGE 


Hard Disk and Streaming Tape OEM CONTROLLERS 


e Multibus 
@ General Purpose 


© S100 


reliability and versatility that can’t be beat 


$33 $10 SYSTEM 8 
¢ 31 or 62 MByte formatted © 10.5 or 32 MByte formatted © 8” Winchester 10 or 32 MByte formatted | 
¢ Lowest cost/MByte from any manufacturer ¢ Integrated streaming cartridge backup 

¢ CP/M* compatible “drop in” BIOS ¢ Streaming backup at 5 MB/min 
© Single S100 card controller _  ® Selective file backup under CP/M 
e Fully expandable up to four drives, 8” or 14” ¢ Versatile parallel 1/0 or DMA interface 


e Reliable high performance Priam Winchester Disks 
¢ Immediate delivery 


—_——ADES ee, 


ADAPTIVE DATA & ENERGY SYSTEMS 
2627 Pomona Boulevard « Pomona, CA 91768 
Phone: (714) 594-5858 


CPIM is a trademark of Digital Research Corp. 


Performance. 
Quality. 
Reliability. 


PETERS CAYLEE pepe terme TE 


sone CPO RL TIES BS 


For business, industrial, and scientific computing solutions, 


contact your nearest CompuPro systems center. 


CompuPro is a division of Godbout Electronics, Oakland Airport, CA 94614-0355 415-562-0636 


